#Region "Imports"
Imports System
Imports System.IO
Imports Microsoft.VisualBasic
Imports System.Collections
Imports System.ComponentModel
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Security.Principal
Imports System.Reflection
Imports System.Threading
Imports DevExpress.CodeRush
Imports DevExpress.CodeRush.Core
Imports DevExpress.CodeRush.PlugInCore
Imports DevExpress.CodeRush.StructuralParser
Imports System.Collections.Generic
Imports System.Text
#End Region

Namespace VBCodeCommenter

    ''' <summary>The Class Commenter plug in
    ''' </summary>
    ''' <remarks>
    ''' 	<para><b>History:</b></para>
    ''' <list type="table">
    ''' 	<listheader>
    ''' 		<term>Term</term>
    ''' 		<description>Description</description>
    ''' 	</listheader>
    ''' 	<item>
    ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:15:58 AM</para></term>
    ''' 		<description>Created XML Comment. </description>
    ''' ''' 	</item>
    ''' </list>
    ''' </remarks>
    ''' <example>
    ''' </example>
    Public Class CommenterPlugIn


#Region "Variables"

        ''' <summary>
        ''' Type Variable [_activeSection] Language element
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:12:16 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _activeSection As LanguageElement


        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: ActiveSection
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property Language element
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:12:22 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property ActiveSection() As LanguageElement
            Get
                Return _activeSection
            End Get
            Set(ByVal value As LanguageElement)
                _activeSection = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_strParentType] As <seealso cref= "System.String"/> = String.Empty
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:12:26 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _strParentType As String = String.Empty

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: StrParentType
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:12:36 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property StrParentType() As String
            Get
                Return _strParentType
            End Get
            Set(ByVal value As String)
                _strParentType = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_strCurrentElementType] As <seealso cref= "System.String"/> = String.Empty
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:12:41 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _strCurrentElementType As String = String.Empty


        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: StrCurrentElementType
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:12:52 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property StrCurrentElementType() As String
            Get
                Return _strCurrentElementType
            End Get
            Set(ByVal value As String)
                _strCurrentElementType = value
            End Set
        End Property

        ''' <summary>
        ''' Type Variable [_CurrentElementType] Language element type
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:12:56 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _CurrentElementType As LanguageElementType

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: CurrentElementType
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property Language element type
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:13:03 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property CurrentElementType() As LanguageElementType
            Get
                Return _CurrentElementType
            End Get
            Set(ByVal value As LanguageElementType)
                _CurrentElementType = value
            End Set
        End Property

        ''' <summary>
        ''' Type Variable [_ParentElementType] Language element type
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:13:08 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _ParentElementType As LanguageElementType

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: ParentElementType
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property Language element type
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:13:12 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property ParentElementType() As LanguageElementType
            Get
                Return _ParentElementType
            End Get
            Set(ByVal value As LanguageElementType)
                _ParentElementType = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_InLineCommentCounter] Integer = 0
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:13:16 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _InLineCommentCounter As Integer = 0

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: InLineCommentCounter
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property Integer
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:13:29 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property InLineCommentCounter() As Integer
            Get
                Return _InLineCommentCounter
            End Get
            Set(ByVal value As Integer)
                _InLineCommentCounter = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_NameSpaceName] As <seealso cref= "System.String"/> = String.Empty
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:13:33 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _NameSpaceName As String = String.Empty

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: NameSpaceName
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:13:43 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property NameSpaceName() As String
            Get
                Return _NameSpaceName
            End Get
            Set(ByVal value As String)
                _NameSpaceName = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_CommentLineText] As <seealso cref= "System.String"/> = String.Empty
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:13:48 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _CommentLineText As String = String.Empty


        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: CommentLineText
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:13:57 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property CommentLineText() As String
            Get
                Return _CommentLineText
            End Get
            Set(ByVal value As String)
                _CommentLineText = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_xmlCommentLines] String () = {""}
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:14:02 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _xmlCommentLines As String() = {""}


        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: XmlCommentLines
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property String ()
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:14:06 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property XmlCommentLines() As String()
            Get
                Return _xmlCommentLines
            End Get
            Set(ByVal value As String())
                _xmlCommentLines = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_PlusOne] As <seealso cref= "System.Boolean"/> = False
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:14:11 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _PlusOne As Boolean = False

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: PlusOne
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.Boolean"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:14:22 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property PlusOne() As Boolean
            Get
                Return _PlusOne
            End Get
            Set(ByVal value As Boolean)
                _PlusOne = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_MinusOne] As <seealso cref= "System.Boolean"/> = False
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:14:28 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _MinusOne As Boolean = False

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: MinusOne
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.Boolean"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:14:38 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property MinusOne() As Boolean
            Get
                Return _MinusOne
            End Get
            Set(ByVal value As Boolean)
                _MinusOne = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_MethodLineText] As <seealso cref= "System.String"/> = String.Empty
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:14:48 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _MethodLineText As String = String.Empty

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: MethodLineText
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:15:05 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property MethodLineText() As String
            Get
                Return _MethodLineText
            End Get
            Set(ByVal value As String)
                _MethodLineText = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_isNamespace] As <seealso cref= "System.Boolean"/> = False
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:15:11 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _isNamespace As Boolean = False

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: IsNamespace
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.Boolean"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:15:23 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property IsNamespace() As Boolean
            Get
                Return _isNamespace
            End Get
            Set(ByVal value As Boolean)
                _isNamespace = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_hasCommentLine] As <seealso cref= "System.Boolean"/> = False
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:15:28 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _hasCommentLine As Boolean = False

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: HasCommentLine
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.Boolean"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:15:37 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property HasCommentLine() As Boolean
            Get
                Return _hasCommentLine
            End Get
            Set(ByVal value As Boolean)
                _hasCommentLine = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_isXMLCommentExist] As <seealso cref= "System.Boolean"/> = False
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:15:43 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _isXMLCommentExist As Boolean = False

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: IsXMLCommentExist
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.Boolean"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:15:54 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property IsXMLCommentExist() As Boolean
            Get
                Return _isXMLCommentExist
            End Get
            Set(ByVal value As Boolean)
                _isXMLCommentExist = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_CurrentTextLine] As <seealso cref= "System.String"/> = System.String.Empty
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:18:23 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _CurrentTextLine As String = System.String.Empty

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: CurrentTextLine
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:16:01 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property CurrentTextLine() As String
            Get
                Return _CurrentTextLine
            End Get
            Set(ByVal value As String)
                _CurrentTextLine = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_enabled] As <seealso cref= "System.Boolean"/> = True
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:18:39 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _enabled As Boolean = True

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: Enabled
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.Boolean"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:16:07 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property Enabled() As Boolean
            Get
                Return _enabled
            End Get
            Set(ByVal value As Boolean)
                _enabled = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_generateXmlOnlyForPublic] As <seealso cref= "System.Boolean"/> = False
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:18:52 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _generateXmlOnlyForPublic As Boolean = False

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: GenerateXmlOnlyForPublic
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.Boolean"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:16:12 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property GenerateXmlOnlyForPublic() As Boolean
            Get
                Return _generateXmlOnlyForPublic
            End Get
            Set(ByVal value As Boolean)
                _generateXmlOnlyForPublic = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_generateXmlTags] As <seealso cref= "System.Boolean"/> = True
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:19:03 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _generateXmlTags As Boolean = True

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: GenerateXmlTags
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.Boolean"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:16:18 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property GenerateXmlTags() As Boolean
            Get
                Return _generateXmlTags
            End Get
            Set(ByVal value As Boolean)
                _generateXmlTags = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_Visibility] As <seealso cref= "System.String"/> = String.Empty
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:19:16 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _Visibility As String = String.Empty

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: Visibility
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:19:31 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property Visibility() As String
            Get
                Return _Visibility
            End Get
            Set(ByVal value As String)
                _Visibility = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_MethodType] As <seealso cref= "System.String"/> = String.Empty
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:19:36 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _MethodType As String = String.Empty

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: MethodType
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:16:24 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property MethodType() As String
            Get
                Return _MethodType
            End Get
            Set(ByVal value As String)
                _MethodType = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_DeveloperName] As <seealso cref= "System.String"/> = String.Empty
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:19:49 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _DeveloperName As String = String.Empty

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: DeveloperName
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:16:29 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property DeveloperName() As String
            Get
                Return _DeveloperName
            End Get
            Set(ByVal value As String)
                _DeveloperName = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_DeveloperCompany] As <seealso cref= "System.String"/> = String.Empty
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:20:03 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _DeveloperCompany As String = String.Empty

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: DeveloperCompany
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:16:34 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property DeveloperCompany() As String
            Get
                Return _DeveloperCompany
            End Get
            Set(ByVal value As String)
                _DeveloperCompany = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_DeveloperPhone] As <seealso cref= "System.String"/> = String.Empty
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:20:15 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _DeveloperPhone As String = String.Empty

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: DeveloperPhone
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:16:41 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property DeveloperPhone() As String
            Get
                Return _DeveloperPhone
            End Get
            Set(ByVal value As String)
                _DeveloperPhone = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_DeveloperEmail] As <seealso cref= "System.String"/> = String.Empty
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:20:38 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _DeveloperEmail As String = String.Empty

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: DeveloperEmail
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:16:46 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property DeveloperEmail() As String
            Get
                Return _DeveloperEmail
            End Get
            Set(ByVal value As String)
                _DeveloperEmail = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_CurrentOffset] Integer = 5
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:20:51 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _CurrentOffset As Integer = 5

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: CurrentOffset
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property Integer
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:16:52 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property CurrentOffset() As Integer
            Get
                Return _CurrentOffset
            End Get
            Set(ByVal value As Integer)
                _CurrentOffset = value
            End Set
        End Property

        ''' <summary>
        ''' Type Variable [_xMLSummaryOptionsEditorText] As <seealso cref= "System.String"/>
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:21:03 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _xMLSummaryOptionsEditorText As String

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: XMLSummaryOptionsEditorText
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:16:57 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property XMLSummaryOptionsEditorText() As String
            Get
                Return _xMLSummaryOptionsEditorText
            End Get
            Set(ByVal Value As String)
                _xMLSummaryOptionsEditorText = Value
            End Set
        End Property

        ''' <summary>
        ''' Type Variable [_xMLRemarksOptionsEditorText] As <seealso cref= "System.String"/>
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:22:12 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _xMLRemarksOptionsEditorText As String

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: XMLRemarksOptionsEditorText
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:17:09 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property XMLRemarksOptionsEditorText() As String
            Get
                Return _xMLRemarksOptionsEditorText
            End Get
            Set(ByVal Value As String)
                _xMLRemarksOptionsEditorText = Value
            End Set
        End Property

        ''' <summary>
        ''' Type Variable [_xMLHistoryOptionsEditorText] As <seealso cref= "System.String"/>
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:22:08 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _xMLHistoryOptionsEditorText As String

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: XMLHistoryOptionsEditorText
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:17:14 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property XMLHistoryOptionsEditorText() As String
            Get
                Return _xMLHistoryOptionsEditorText
            End Get
            Set(ByVal Value As String)
                _xMLHistoryOptionsEditorText = Value
            End Set
        End Property

        ''' <summary>
        ''' Type Variable [_xMLReturnsOptionsEditorText] As <seealso cref= "System.String"/>
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:22:02 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _xMLReturnsOptionsEditorText As String

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: XMLReturnsOptionsEditorText
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:17:20 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property XMLReturnsOptionsEditorText() As String
            Get
                Return _xMLReturnsOptionsEditorText
            End Get
            Set(ByVal Value As String)
                _xMLReturnsOptionsEditorText = Value
            End Set
        End Property

        ''' <summary>
        ''' Type Variable [_xMLValueOptionsEditorText] As <seealso cref= "System.String"/>
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:21:58 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _xMLValueOptionsEditorText As String

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: XMLValueOptionsEditorText
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:17:25 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property XMLValueOptionsEditorText() As String
            Get
                Return _xMLValueOptionsEditorText
            End Get
            Set(ByVal Value As String)
                _xMLValueOptionsEditorText = Value
            End Set
        End Property

        ''' <summary>
        ''' Type Variable [_xMLParametersOptionsEditorText] As <seealso cref= "System.String"/>
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:21:52 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _xMLParametersOptionsEditorText As String

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: XMLParametersOptionsEditorText
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:17:32 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property XMLParametersOptionsEditorText() As String
            Get
                Return _xMLParametersOptionsEditorText
            End Get
            Set(ByVal Value As String)
                _xMLParametersOptionsEditorText = Value
            End Set
        End Property

        ''' <summary>
        ''' Type Variable [_xMLExceptionsOptionsEditorText] As <seealso cref= "System.String"/>
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:21:47 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _xMLExceptionsOptionsEditorText As String

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: XMLExceptionsOptionsEditorText
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:17:38 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property XMLExceptionsOptionsEditorText() As String
            Get
                Return _xMLExceptionsOptionsEditorText
            End Get
            Set(ByVal Value As String)
                _xMLExceptionsOptionsEditorText = Value
            End Set
        End Property

        ''' <summary>
        ''' Type Variable [_xMLExamplesOptionsEditorText] As <seealso cref= "System.String"/>
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:21:42 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _xMLExamplesOptionsEditorText As String

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: XMLExamplesOptionsEditorText
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:17:43 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property XMLExamplesOptionsEditorText() As String
            Get
                Return _xMLExamplesOptionsEditorText
            End Get
            Set(ByVal Value As String)
                _xMLExamplesOptionsEditorText = Value
            End Set
        End Property

        ''' <summary>
        ''' Type Variable [_xMLSeeAlsoOptionsEditorText] As <seealso cref= "System.String"/>
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:21:36 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _xMLSeeAlsoOptionsEditorText As String

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: XMLSeeAlsoOptionsEditorText
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:17:48 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property XMLSeeAlsoOptionsEditorText() As String
            Get
                Return _xMLSeeAlsoOptionsEditorText
            End Get
            Set(ByVal Value As String)
                _xMLSeeAlsoOptionsEditorText = Value
            End Set
        End Property

        ''' <summary>
        ''' Type Variable [_xMLPermissionOptionsEditorText] As <seealso cref= "System.String"/>
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:21:28 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _xMLPermissionOptionsEditorText As String

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: XMLPermissionOptionsEditorText
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:17:55 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property XMLPermissionOptionsEditorText() As String
            Get
                Return _xMLPermissionOptionsEditorText
            End Get
            Set(ByVal Value As String)
                _xMLPermissionOptionsEditorText = Value
            End Set
        End Property


        ''' <summary>
        ''' Type Initialized Variable [_isRegion] As <seealso cref= "System.Boolean"/> = False
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:21:16 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _isRegion As Boolean = False

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: IsRegion
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.Boolean"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:18:00 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property IsRegion() As Boolean
            Get
                Return _isRegion
            End Get
            Set(ByVal value As Boolean)
                _isRegion = value
            End Set
        End Property

        ''' <summary>
        ''' Type Initialized Variable [_isAttributeText] As <seealso cref= "System.Boolean"/> = False
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:18:11 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _isAttributeText As Boolean = False

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: IsAttributeText
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property As <seealso cref= "System.Boolean"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:18:04 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property IsAttributeText() As Boolean
            Get
                Return _isAttributeText
            End Get
            Set(ByVal value As Boolean)
                _isAttributeText = value
            End Set
        End Property

        ''' <summary>Variable [_methodReturnType] As <seealso cref= "System.String"/>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:21:34 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _methodReturnType As String

        ''' <summary>Gets or sets the value of the property named: MethodReturnType
        ''' </summary>
        ''' <value>Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:21:44 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property MethodReturnType() As String
            Get
                Return _methodReturnType
            End Get
            Set(ByVal Value As String)
                _methodReturnType = Value
            End Set
        End Property

        ''' <summary>Initialized Variable [_Apostrophe] Integer = 0
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:21:30 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _Apostrophe As Integer = 0

        ''' <summary>Gets or sets the value of the property named: Apostrophe
        ''' </summary>
        ''' <value>Property Integer
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:22:01 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property Apostrophe() As Integer
            Get
                Return _Apostrophe
            End Get
            Set(ByVal Value As Integer)
                _Apostrophe = Value
            End Set
        End Property

        ''' <summary>Initialized Variable [KnownAbbreviations] String () = New String () {"desc", "description", "num", "number", "rem", "remember = _
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:23:19 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Shared ReadOnly KnownAbbreviations As String() = New String() {"desc", "description", "num", "number", "rem", "remember", _
         "util", "utilities", "obj", "object", "str", "string", _
         "ar", "asyncron result", "max", "maximum", "min", "minimum", _
         "abs", "absolute", "nr", "number", "no", "number", _
         "mem", "memory", "ex", "exception", "s1", "string 1", _
         "s2", "string 2", "org", "original", "obs", "obsolete", _
         "ret", "return", "val", "value", "cb", "collection base", _
         "sc", "string collection", "msg", "message", "func", "function", _
         "var", "variable", "ch", "character", "pt", "point", _
         "rect", "rectangle", "vec", "vector", "x", "x", _
         "y", "y", "x1", "x1", "y1", "y1", _
         "x2", "x2", "y2", "y2", "u", "u texture coordinate", _
         "v", "v texture coordinate", "u1", "u texture coordinate 1", "v1", "v texture coordinate 1", _
         "u2", "u texture coordinate 2", "v2", "v texture coordinate 2", "diff", "diffuse", _
         "spec", "specular", "bump", "bump mapping", "pos", "position", _
         "mat", "matrix", "mtx", "matrix", "norm", "normal", _
         "tang", "tangent", "bionorm", "bionormal", "col", "color", _
         "ea", "event arguments", "arg", "argument", "args", "arguments", _
         "ui", "user interface", "gui", "graphical user interface", "dx", "DirectX", _
         "fx", "effect", "sfx", "sound effect", "bmp", "bitmap", _
         "img", "image", "sys", "system", "`1", String.Empty}

        ''' <summary>Initialized Variable [lastMouseClickTime] Date time = DateTime.Now
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:09:57 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private lastMouseClickTime As DateTime = DateTime.Now

        ''' <summary>Initialized Variable [lastMouseClickText] As <seealso cref= "System.String"/> = ""
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:10:01 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private lastMouseClickText As String = String.Empty

        ''' <summary>Initialized Variable [commendWasAdded] As <seealso cref= "System.Boolean"/> = False
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:24:25 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private commendWasAdded As Boolean = False


#End Region
        'DXCore-generated code...
#Region " InitializePlugIn "

        ''' <summary>
        ''' Type Variable [InitializePlugIn] Initialize plug in ()
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:22:44 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Overrides Sub InitializePlugIn()
            MyBase.InitializePlugIn()

        End Sub
#End Region

#Region " FinalizePlugIn "

        ''' <summary>The Sub Finalize plug in
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:20:32 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Overrides Sub FinalizePlugIn()

            MyBase.FinalizePlugIn()
        End Sub
#End Region

#Region "Structures"
        ''' <summary>Structure [MissingXmlComment].
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:19:00 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Structure MissingXmlComment

            ''' <summary>Structure Variable [name] As <seealso cref= "System.String"/>
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:19:37 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public name As String

            ''' <summary>Structure Variable [detailNodes] Node list
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:19:43 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public detailNodes As NodeList

            ''' <summary>Structure Variable [minimumLine] Integer
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:19:47 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public minimumLine As Integer

            ''' <summary>Structure Variable [isConstructor] As <seealso cref= "System.Boolean"/>
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:19:51 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public isConstructor As Boolean

            ''' <summary>Structure Variable [elementType] Language element type
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:19:56 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public elementType As LanguageElementType

            ''' <summary>The Sub New
            ''' </summary>
            ''' <param name="setName">Parameter setName As <seealso cref= "System.String"/></param>
            ''' <param name="setDetailNodes">Parameter setDetailNodes Node list</param>
            ''' <param name="setMinimumLine">Parameter setMinimumLine Integer</param>
            ''' <param name="setIsConstructor">Parameter setIsConstructor As <seealso cref= "System.Boolean"/></param>
            ''' <param name="setElementType">Parameter setElementType Language element type</param>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' <item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:20:06 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public Sub New(ByVal setName As String, ByVal setDetailNodes As NodeList, ByVal setMinimumLine As Integer, ByVal setIsConstructor As Boolean, ByVal setElementType As LanguageElementType)
                name = setName
                detailNodes = setDetailNodes
                minimumLine = setMinimumLine
                isConstructor = setIsConstructor
                elementType = setElementType
            End Sub

            ''' <summary>The Sub To string
            ''' </summary>
            ''' <returns>
            ''' </returns>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' <item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:20:48 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public Overloads Overrides Function ToString() As String
                Return My.Resources.NameEqualText + name.ToString + My.Resources.CommaAndTypeText + elementType.ToString
            End Function
            ' ToString()
        End Structure
#End Region

#Region "CommentSection"
        ''' <summary>The Sub Comment section
        ''' </summary>
        ''' <param name="checkLineNum">Parameter checkLineNum Integer</param>
        ''' <param name="lines">Parameter lines <seealso cref =" system. array" /> As System. string ()</param>
        ''' <param name="remLine">Parameter remLine Integer</param>
        ''' <param name="addLinesWhenInserting">Parameter addLinesWhenInserting Integer</param>
        ''' <param name="methodName">Parameter methodName As <seealso cref= "System.String"/></param>
        ''' <param name="publicClassMethodOrProperty">Parameter publicClassMethodOrProperty As <seealso cref= "System.Boolean"/></param>
        ''' <param name="isConstructor">Parameter isConstructor As <seealso cref= "System.Boolean"/></param>
        ''' <param name="elementType">Parameter elementType Language element type</param>
        ''' <param name="detailNodes">Parameter detailNodes Node list</param>
        ''' <param name="document">Parameter document Text document</param>
        ''' <param name="ParentType">Parameter ParentType As <seealso cref= "System.String"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:22:39 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub CommentSection(ByVal checkLineNum As Integer, ByVal lines As String(), ByRef remLine As Integer, ByVal CommentLineText As String, ByVal addLinesWhenInserting As Integer, ByVal methodName As String, ByVal publicClassMethodOrProperty As Boolean, _
             ByVal isConstructor As Boolean, ByVal elementType As LanguageElementType, ByVal detailNodes As NodeList, ByVal document As TextDocument, ByVal ParentType As String, ByVal CurrentAttributeText As String, ByVal isAttributeText As Boolean)
            If lines Is Nothing OrElse lines.Length = 0 OrElse String.IsNullOrEmpty(methodName) OrElse document Is Nothing Then
                Return
            End If
            ' Check if there is a comment
            Dim bnlDirectives As Boolean = False
            Dim CurrentDirectivesText As String = String.Empty
            Dim normalCommentLines As New List(Of String)()
            Dim functionLine As Integer = checkLineNum + 1
            Dim xmlCommentClosing As String = String.Empty
            Dim CurrentDescriptionText As String = String.Empty
            Dim CurrentHistoryText As String = String.Empty
            Dim CurrentRemarksText As String = String.Empty
            Dim CurrentSummaryText As String = String.Empty
            Dim CurrentValueText As String = String.Empty
            Dim CurrentReturnsText As String = String.Empty
            Dim CurrentExamplesText As String = String.Empty
            Dim CurrentSeeAlsoText As String = String.Empty
            Dim CurrentDevNameText As String = String.Empty
            Dim CurrentDevCompanyText As String = String.Empty
            Dim CurrentDevPhoneText As String = String.Empty
            Dim CurrentDevEmailText As String = String.Empty
            Dim CurrentDevMachineText As String = String.Empty
            Dim CurrentTableList As New ArrayList
            Dim Parameters As New List(Of XmlParameter)()
            Dim XMLHistory As New List(Of XMLHistory)()
            Dim XMLSeeAlso As New List(Of XMLSeeAlso)()
            Dim XMLPermissions As New List(Of XMLPermissions)()
            Dim XMLException As New List(Of XMLException)()
            Dim remOffset As Integer = 0
            Dim valueLine As String = String.Empty
            Dim returnLine As String = String.Empty
            Dim startLineParam As Integer = -1
            Dim endLineParam As Integer = 0
            Dim changedParameters As Boolean = False
            Dim ParametersCounter As Integer = 0
            Dim xmlComment As String = String.Empty
            'Dim xmlCommentLines As String() = {""}

            MethodLineText = lines(checkLineNum).Trim()

            'While functionLine > 0 AndAlso checkLineNum > 0 AndAlso lines(functionLine).Trim().StartsWith(My.Resources.PoundSignSymbolText) OrElse lines(functionLine).Trim().StartsWith("[")
            '    functionLine -= 1
            '    checkLineNum -= 1
            'End While
            Dim tabsText As String = StringHelper.GetAllSpacesAndTabsAtBeginning(lines(functionLine)) + "''' "
            Dim endDirectives As Integer = 0
            While checkLineNum > 0
                Dim lineText As String = lines(checkLineNum).Trim()
                Dim isNormalComment As Boolean = lineText.StartsWith("' ")
                If isNormalComment Then
                    normalCommentLines.Add(lineText.Substring(2).Trim())
                ElseIf lineText.StartsWith("#end") OrElse (endDirectives > 0 AndAlso (lineText.StartsWith("#if") OrElse lineText.StartsWith("#region"))) OrElse lineText.StartsWith("[") OrElse (lineText.StartsWith("'") = False AndAlso (lineText.EndsWith("]") OrElse lineText.EndsWith(","))) Then
                    ' if (isNormalComment)
                    If lineText.StartsWith("#end") Then
                        endDirectives += 1
                    ElseIf lineText.StartsWith("#if") OrElse lineText.StartsWith("#region") Then
                        endDirectives -= 1
                    End If
                Else
                    Exit While
                End If
                ' else
                ' Jump 1 line up
                checkLineNum -= 1
            End While
            Select Case elementType
                'XML Comments are not support in VB.Net 2005
                Case LanguageElementType.Namespace
                Case LanguageElementType.Method, LanguageElementType.Delegate

                    MethodLineText = lines(checkLineNum).Trim()

                    If IsRegion = True Then
                        If Not IsXMLCommentExist = True Then
                            remLine -= 1
                        Else

                        End If
                    End If
                    'Dim CurrentCheckLineNum As Integer = checkLineNum + 1
                    Dim CurrentCheckLineNum As Integer = checkLineNum

                    Do While MethodLineText.EndsWith(My.Resources.UnderScoreText)
                        MethodLineText = MethodLineText.Substring(0, MethodLineText.Length - 1) & " " & lines(CurrentCheckLineNum).Trim()
                        CurrentCheckLineNum += 1
                    Loop
                    Dim MethodArray As New ArrayList
                    MethodArray = ParseMethodName(MethodLineText, methodName)
                    Dim MethodArrayUBounds As Integer = MethodArray.Count
                    MethodReturnType = MethodArray.Item(MethodArrayUBounds - 1)
                    If Not MethodReturnType.Trim.ToUpper.StartsWith(My.Resources.RightPerentAsText) Then
                        MethodReturnType = String.Empty
                    End If
                    Select Case elementType
                        Case LanguageElementType.Delegate
                            MethodType = My.Resources.DelegateText
                    End Select

                    If Me.GenerateXmlTags AndAlso detailNodes IsNot Nothing Then
                        ' if (normalCommentLines.Count)
                        xmlComment = String.Empty
                        startLineParam = checkLineNum - 1
                        Try
                            While checkLineNum > 0
                                checkLineNum -= 1

                                Dim lineText As String = lines(checkLineNum).Trim()
                                If lineText.Contains(My.Resources.DescriptionBeginTagText) Then
                                    Dim strTemp As String = My.Resources.DescriptionBeginTagText
                                    Dim strTempText As String = lineText.Substring(strTemp.Length, lineText.Length - strTemp.Length)
                                    Select Case strTempText
                                        Case My.Resources.DescriptionTextAndEndTagText
                                            'Do Nothing
                                        Case Else
                                            CurrentDescriptionText = strTempText

                                    End Select
                                End If
                                If lineText.Contains(My.Resources.DevMachineBeginTagText) Then
                                    Dim strTemp As String = My.Resources.DevMachineBeginTagText
                                    Dim strTempText As String = lineText.Substring(strTemp.Length, lineText.Length - strTemp.Length)
                                    Select Case strTempText
                                        Case My.Resources.DevMachineTextAndEndTagText
                                            'Do Nothing
                                        Case Else
                                            CurrentDevMachineText = strTempText

                                    End Select
                                End If
                                If lineText.Contains(My.Resources.DevEmailBeginTagText) Then
                                    Dim strTemp As String = My.Resources.DevEmailBeginTagText
                                    Dim strTempText As String = lineText.Substring(strTemp.Length, lineText.Length - strTemp.Length)
                                    Select Case strTempText
                                        Case My.Resources.DevEmailTextAndEndTagText
                                            'Do Nothing
                                        Case Else
                                            CurrentDevEmailText = strTempText

                                    End Select
                                End If
                                If lineText.Contains(My.Resources.DevPhoneBeginTagText) Then
                                    Dim strTemp As String = My.Resources.DevPhoneBeginTagText
                                    Dim strTempText As String = lineText.Substring(strTemp.Length, lineText.Length - strTemp.Length)
                                    Select Case strTempText
                                        Case My.Resources.DevPhoneTextAndEndTagText
                                            'Do Nothing
                                        Case Else
                                            CurrentDevPhoneText = strTempText

                                    End Select
                                End If
                                If lineText.Contains(My.Resources.DevCompanyBeginTagText) Then
                                    Dim strTemp As String = My.Resources.DevCompanyBeginTagText
                                    Dim strTempText As String = lineText.Substring(strTemp.Length, lineText.Length - strTemp.Length)
                                    Select Case strTempText
                                        Case My.Resources.DevCompanyTextAndEndTagText
                                            'Do Nothing
                                        Case Else
                                            CurrentDevCompanyText = strTempText

                                    End Select
                                End If
                                If lineText.Contains(My.Resources.DevNameBeginTagText) Then
                                    Dim strTemp As String = My.Resources.DevNameBeginTagText
                                    Dim strTempText As String = lineText.Substring(strTemp.Length, lineText.Length - strTemp.Length)
                                    Select Case strTempText
                                        Case My.Resources.DevNameTextAndEndTagText
                                            'Do Nothing
                                        Case Else
                                            CurrentDevNameText = strTempText

                                    End Select
                                End If
                                If lineText.Contains(My.Resources.ParamNameBeginTagText) Then
                                    'CurrentSummaryText = String.Empty
                                End If
                                If lineText.StartsWith(My.Resources.XMLLineStartCharText) Then
                                    xmlComment = lineText.Substring(3).Trim() + vbCrLf + xmlComment
                                Else
                                    If lineText.StartsWith("<") Then
                                        Continue While
                                    Else
                                        Exit While
                                    End If
                                    ' Build xml comment lines in reverse
                                End If
                            End While
                        Catch ex As Exception

                        Finally

                        End Try
                        ' while
                        changedParameters = False
                        Try
                            XmlCommentLines = Nothing
                        Catch ex As Exception

                        Finally

                        End Try
                        ' Ok, split up xml comment into main parts and Parameters and
                        ' return type. Then we can replace the Parameters and the return
                        ' type. Go through all lines ...
                        XmlCommentLines = StringHelper.SplitMultiLineText(xmlComment)
                        Try
                            For num As Integer = 0 To XmlCommentLines.Length - 1
                                If XmlCommentLines(num).StartsWith(My.Resources.SummaryXMLBeginTagText) Then
                                    Dim TempText As String = XmlCommentLines(num).Substring(My.Resources.SummaryXMLBeginTagText.Length, XmlCommentLines(num).Length - My.Resources.SummaryXMLBeginTagText.Length)
                                    TempText = TempText.Replace(Chr(10), String.Empty)
                                    TempText = TempText.Replace(vbCrLf, String.Empty)
                                    TempText = TempText.Replace(vbCr, String.Empty)
                                    Select Case TempText.Trim
                                        Case String.Empty
                                            Exit Select
                                        Case vbLf
                                            Exit Select
                                        Case vbCrLf
                                            Exit Select
                                        Case Chr(10)
                                            Exit Select
                                        Case Else
                                            CurrentSummaryText = TempText & vbCrLf
                                    End Select
                                    num += 1
                                    Do Until XmlCommentLines(num).EndsWith(My.Resources.SummaryXMLEndTagText) = True AndAlso num + 1 < XmlCommentLines.Length
                                        If XmlCommentLines(num).StartsWith(My.Resources.ParaXMLBeginTagText) AndAlso XmlCommentLines(num).EndsWith(My.Resources.ParaXMLEndTagText) Then
                                            CurrentSummaryText += XmlCommentLines(num).Substring(My.Resources.ParaXMLBeginTagText.Length, XmlCommentLines(num).Length - (My.Resources.ParaXMLBeginTagText.Length + My.Resources.ParaXMLEndTagText.Length)) & vbCrLf
                                        Else
                                            CurrentSummaryText += XmlCommentLines(num) & vbCrLf
                                        End If
                                        num += 1
                                    Loop
                                End If
                            Next
                        Catch ex As Exception

                        Finally

                        End Try
                        Try
                            For num As Integer = 0 To XmlCommentLines.Length - 1
                                If XmlCommentLines(num).StartsWith(My.Resources.RemarksXMLBeginTagText) Then
                                    Dim TempText As String = XmlCommentLines(num).Substring(My.Resources.RemarksXMLBeginTagText.Length, XmlCommentLines(num).Length - My.Resources.RemarksXMLBeginTagText.Length)
                                    TempText = TempText.Replace(Chr(10), String.Empty)
                                    TempText = TempText.Replace(vbCrLf, String.Empty)
                                    TempText = TempText.Replace(vbCr, String.Empty)
                                    Select Case TempText.Trim
                                        Case String.Empty
                                            Exit Select
                                        Case vbLf
                                            Exit Select
                                        Case vbCrLf
                                            Exit Select
                                        Case Chr(10)
                                            Exit Select
                                        Case Else
                                            CurrentRemarksText = TempText & vbCrLf
                                    End Select
                                    num += 1
                                    Do Until XmlCommentLines(num).StartsWith(My.Resources.HistoryParagraphText) = True AndAlso num + 1 < XmlCommentLines.Length
                                        If XmlCommentLines(num).StartsWith(My.Resources.ParaXMLBeginTagText) AndAlso XmlCommentLines(num).EndsWith(My.Resources.ParaXMLEndTagText) Then
                                            CurrentRemarksText += XmlCommentLines(num).Substring(My.Resources.ParaXMLBeginTagText.Length, XmlCommentLines(num).Length - (My.Resources.ParaXMLBeginTagText.Length + My.Resources.ParaXMLEndTagText.Length)) & vbCrLf
                                        Else
                                            CurrentRemarksText += XmlCommentLines(num) & vbCrLf
                                        End If
                                        num += 1
                                    Loop
                                End If
                            Next
                        Catch ex As Exception

                        Finally

                        End Try
                        Try
                            For num As Integer = 0 To XmlCommentLines.Length - 1
                                If XmlCommentLines(num).StartsWith("<example>") Then
                                    Dim TempText As String = XmlCommentLines(num).Substring("<example>".Length, XmlCommentLines(num).Length - "<example>".Length)
                                    TempText = TempText.Replace(Chr(10), String.Empty)
                                    TempText = TempText.Replace(vbCrLf, String.Empty)
                                    TempText = TempText.Replace(vbCr, String.Empty)
                                    Select Case TempText.Trim
                                        Case String.Empty
                                            Exit Select
                                        Case vbLf
                                            Exit Select
                                        Case vbCrLf
                                            Exit Select
                                        Case Chr(10)
                                            Exit Select
                                        Case Else
                                            CurrentExamplesText = TempText & vbCrLf
                                    End Select
                                    num += 1
                                    Do Until XmlCommentLines(num).EndsWith("</example>") = True AndAlso num + 1 < XmlCommentLines.Length
                                        If XmlCommentLines(num).StartsWith(My.Resources.ParaXMLBeginTagText) AndAlso XmlCommentLines(num).EndsWith(My.Resources.ParaXMLEndTagText) Then
                                            CurrentExamplesText += XmlCommentLines(num).Substring(My.Resources.ParaXMLBeginTagText.Length, XmlCommentLines(num).Length - (My.Resources.ParaXMLBeginTagText.Length + My.Resources.ParaXMLEndTagText.Length)) & vbCrLf
                                        Else
                                            CurrentExamplesText += XmlCommentLines(num) & vbCrLf
                                        End If
                                        num += 1
                                    Loop
                                End If
                            Next
                        Catch ex As Exception

                        Finally

                        End Try
                        returnLine = String.Empty
                        valueLine = String.Empty

                        'startLineParam = -1
                        'endLineParam = 0
                        ParametersCounter = 0
                        Try
                            For num As Integer = 0 To XmlCommentLines.Length - 1
                                If XmlCommentLines(num).StartsWith("<param name=""") Then
                                    Dim paramName As String = XmlCommentLines(num).Substring("<param name=""".Length)
                                    Dim paramEndIndex As Integer = paramName.IndexOf(""">")
                                    If paramEndIndex > 0 Then
                                        paramName = paramName.Substring(0, paramEndIndex)

                                    End If

                                    'If startLineParam = 0 Then
                                    '    startLineParam = num
                                    'End If

                                    Dim paramText As String = XmlCommentLines(num)
                                    While XmlCommentLines(num).EndsWith("</param>") = False AndAlso num + 1 < XmlCommentLines.Length
                                        num += 1
                                        paramText += XmlCommentLines(num)
                                    End While
                                    ' while
                                    Dim paramEndLine As Integer = num
                                    'If endLineParam = 0 Then
                                    '    endLineParam = num
                                    'End If
                                    Dim paramTStartIndex As Integer = paramText.IndexOf(""">") + 2
                                    Dim paramTEndIndex As Integer = paramText.IndexOf("</")
                                    Dim ParamTextLength As Integer = paramTEndIndex - paramTStartIndex

                                    If paramTStartIndex > 0 Then
                                        paramText = paramText.Substring(paramTStartIndex, ParamTextLength)
                                    End If
                                    'unused: paramStartLine,
                                    Parameters.Add(New XmlParameter(paramName, paramText, paramEndLine, False))
                                    ParametersCounter += 1

                                ElseIf XmlCommentLines(num).StartsWith("<returns>") Then
                                    Try
                                        For nums As Integer = num To XmlCommentLines.Length - 1
                                            If XmlCommentLines(nums).StartsWith("<returns>") Then
                                                Dim TempText As String = XmlCommentLines(nums).Substring("<returns>".Length, XmlCommentLines(nums).Length - "<returns>".Length)
                                                TempText = TempText.Replace(Chr(10), String.Empty)
                                                TempText = TempText.Replace(vbCrLf, String.Empty)
                                                TempText = TempText.Replace(vbCr, String.Empty)
                                                Select Case TempText.Trim
                                                    Case String.Empty
                                                        Exit Select
                                                    Case vbLf
                                                        Exit Select
                                                    Case vbCrLf
                                                        Exit Select
                                                    Case Chr(10)
                                                        Exit Select
                                                    Case Else
                                                        If TempText.EndsWith("</returns>") Then
                                                            TempText = TempText.Substring(0, TempText.Length - "</returns>".Length)
                                                        End If
                                                        CurrentReturnsText = TempText & vbCrLf
                                                End Select
                                                nums += 1
                                                Try
                                                    Do Until XmlCommentLines(nums).EndsWith("</returns>") = True AndAlso nums + 1 < XmlCommentLines.Length
                                                        If XmlCommentLines(nums).StartsWith(My.Resources.ParaXMLBeginTagText) AndAlso XmlCommentLines(nums).EndsWith(My.Resources.ParaXMLEndTagText) Then
                                                            CurrentReturnsText += XmlCommentLines(nums).Substring(My.Resources.ParaXMLBeginTagText.Length, XmlCommentLines(nums).Length - (My.Resources.ParaXMLBeginTagText.Length + My.Resources.ParaXMLEndTagText.Length)) & vbCrLf
                                                        Else
                                                            CurrentReturnsText += XmlCommentLines(nums) & vbCrLf
                                                        End If
                                                        nums += 1
                                                    Loop
                                                Catch ex As Exception

                                                End Try
                                            End If
                                        Next
                                    Catch ex As Exception
                                        Debug.Write("CommentSection (returns Section) For Next Loop exception: " & ex.Message)

                                    Finally

                                    End Try
                                ElseIf XmlCommentLines(num).StartsWith("<value>") Then
                                    Try
                                        For nums As Integer = num To XmlCommentLines.Length - 1
                                            If XmlCommentLines(nums).StartsWith("<value>") Then
                                                Dim TempText As String = XmlCommentLines(nums).Substring("<value>".Length, XmlCommentLines(nums).Length - "<value>".Length)
                                                TempText = TempText.Replace(Chr(10), String.Empty)
                                                TempText = TempText.Replace(vbCrLf, String.Empty)
                                                TempText = TempText.Replace(vbCr, String.Empty)
                                                Select Case TempText.Trim
                                                    Case String.Empty
                                                        Exit Select
                                                    Case vbLf
                                                        Exit Select
                                                    Case vbCrLf
                                                        Exit Select
                                                    Case Chr(10)
                                                        Exit Select
                                                    Case Else
                                                        CurrentValueText = TempText & vbCrLf
                                                End Select
                                                nums += 1
                                                Do Until XmlCommentLines(nums).EndsWith("</value>") = True AndAlso nums + 1 < XmlCommentLines.Length
                                                    If XmlCommentLines(nums).StartsWith(My.Resources.ParaXMLBeginTagText) AndAlso XmlCommentLines(nums).EndsWith(My.Resources.ParaXMLEndTagText) Then
                                                        CurrentValueText += XmlCommentLines(nums).Substring(My.Resources.ParaXMLBeginTagText.Length, XmlCommentLines(nums).Length - (My.Resources.ParaXMLBeginTagText.Length + My.Resources.ParaXMLEndTagText.Length)) & vbCrLf
                                                    Else
                                                        CurrentValueText += XmlCommentLines(nums) & vbCrLf
                                                    End If
                                                    nums += 1
                                                Loop
                                            End If
                                        Next
                                    Catch ex As Exception

                                    Finally

                                    End Try
                                End If
                                changedParameters = True
                            Next
                        Catch ex As Exception

                        Finally

                        End Try
                        ' No Parameters found, put first parameter after the
                        ' current xml comment.
                        'If startLineParam = -1 Then
                        '    startLineParam = xmlCommentLines.Length - 1
                        'End If
                        ' Remember the returns tag for last, will appear first in
                        ' detail nodes.

                        Try
                            For num As Integer = 0 To XmlCommentLines.Length - 1
                                If XmlCommentLines(num).StartsWith("<item>") Then
                                    Dim strDevNameLine As String = String.Empty
                                    Dim strDescriptionLine As String = String.Empty
                                    Dim strDevCompanyLine As String = String.Empty
                                    Dim strDevPhoneLine As String = String.Empty
                                    Dim strDevEmailLine As String = String.Empty
                                    Dim strDevMachineLine As String = String.Empty

                                    Try
                                        While XmlCommentLines(num).EndsWith("</item>") = False AndAlso num + 1 < XmlCommentLines.Length
                                            num += 1
                                            If XmlCommentLines(num).StartsWith("<devName>") Then
                                                strDevNameLine = XmlCommentLines(num).Substring("<devName>".Length, XmlCommentLines(num).Length - "<devName>".Length - "</devName>".Length)
                                            End If
                                            num += 1
                                            If XmlCommentLines(num).StartsWith("<devCompany>") Then
                                                strDevCompanyLine = XmlCommentLines(num).Substring("<devCompany>".Length, XmlCommentLines(num).Length - "<devCompany>".Length - "</devCompany>".Length)
                                            End If
                                            num += 1
                                            If XmlCommentLines(num).StartsWith("<devPhone>") Then
                                                strDevPhoneLine = XmlCommentLines(num).Substring("<devPhone>".Length, XmlCommentLines(num).Length - "<devPhone>".Length - "</devPhone>".Length)
                                            End If
                                            num += 1
                                            If XmlCommentLines(num).StartsWith("<devEmail>") Then
                                                strDevEmailLine = XmlCommentLines(num).Substring("<devEmail>".Length, XmlCommentLines(num).Length - "<devEmail>".Length - "</devEmail>".Length)
                                            End If
                                            num += 1
                                            If XmlCommentLines(num).StartsWith("<devMachine>") Then
                                                strDevMachineLine = XmlCommentLines(num).Substring("<devMachine>".Length, XmlCommentLines(num).Length - "<devMachine>".Length - "</devMachine>".Length)
                                            End If
                                            num += 1
                                            If XmlCommentLines(num).StartsWith("<description>") Then
                                                strDescriptionLine = XmlCommentLines(num).Substring("<description>".Length, XmlCommentLines(num).Length - "<description>".Length - "</description>".Length)
                                            End If
                                            num += 1

                                            XMLHistory.Add(New XMLHistory(strDevNameLine, strDevCompanyLine, strDevPhoneLine, strDevEmailLine, strDevMachineLine, strDescriptionLine))

                                        End While
                                    Catch ex As Exception

                                    Finally

                                    End Try
                                End If
                            Next
                        Catch ex As Exception

                        Finally

                        End Try
                        Try
                            For num As Integer = 0 To XmlCommentLines.Length - 1
                                If XmlCommentLines(num).StartsWith("<exception cref") Then
                                    Dim strTemp As String = String.Empty
                                    Dim strExceptionLine As String = String.Empty
                                    Dim strDescriptionLine As String = String.Empty
                                    strTemp = XmlCommentLines(num).Substring("<exception cref=".Length + 1, (XmlCommentLines(num).Length - ("<exception cref=".Length + 1)) - "</exception>".Length)
                                    If strTemp.Contains("paramref") Then
                                        Dim tempArray() As String = strTemp.Split(Chr(34) & ">")
                                        Dim ArrayUpperBounds As Integer = tempArray.GetUpperBound(0)
                                        strExceptionLine = tempArray(0).ToString
                                        strDescriptionLine = tempArray(1).Substring(1, tempArray(1).Length - 1)
                                        Try
                                            If strDescriptionLine.Contains("paramref name=") Then
                                                strDescriptionLine += Chr(34) & tempArray(2) & Chr(34) & tempArray(3)

                                            End If
                                        Catch ex As Exception

                                        End Try

                                    Else
                                        Dim tempArray() As String = strTemp.Split(Chr(34) & ">")
                                        strExceptionLine = tempArray(0).ToString
                                        strDescriptionLine = tempArray(1).Substring(1, tempArray(1).Length - 1)
                                    End If
                                    XMLException.Add(New XMLException(strExceptionLine, strDescriptionLine))
                                End If
                            Next
                        Catch ex As Exception
                            Debug.Write("CommentSection (exception Section) For Next Loop exception: " & ex.Message)

                        Finally

                        End Try
                        Try
                            For num As Integer = 0 To XmlCommentLines.Length - 1
                                If XmlCommentLines(num).StartsWith("<seealso cref") AndAlso XmlCommentLines(num).EndsWith("</seealso>") Then
                                    Dim strTemp As String = String.Empty
                                    Dim strSeeAlsoLine As String = String.Empty
                                    Dim strDescriptionLine As String = String.Empty
                                    strTemp = XmlCommentLines(num).Substring("<seealso cref=".Length + 1, (XmlCommentLines(num).Length - ("<seealso cref=".Length + 1)) - "</seealso>".Length)
                                    Dim tempArray() As String = strTemp.Split(Chr(34) & ">")
                                    strSeeAlsoLine = tempArray(0).ToString
                                    strDescriptionLine = tempArray(1).Substring(1, tempArray(1).Length - 1)
                                    XMLSeeAlso.Add(New XMLSeeAlso(strSeeAlsoLine, strDescriptionLine))
                                End If
                            Next
                        Catch ex As Exception
                            Debug.Write("CommentSection (seealso Section) For Next Loop exception: " & ex.Message)

                        Finally

                        End Try
                        Try
                            For num As Integer = 0 To XmlCommentLines.Length - 1
                                If XmlCommentLines(num).StartsWith("<permission cref") Then
                                    Dim strTemp As String = String.Empty
                                    Dim strPermissionsLine As String = String.Empty
                                    Dim strDescriptionLine As String = String.Empty
                                    strTemp = XmlCommentLines(num).Substring("<permission cref=".Length + 1, (XmlCommentLines(num).Length - ("<permission cref=".Length + 1)) - "</permission>".Length)
                                    Dim tempArray() As String = strTemp.Split(Chr(34) & ">")
                                    strPermissionsLine = tempArray(0).ToString
                                    strDescriptionLine = tempArray(1).Substring(1, tempArray(1).Length - 1)
                                    XMLPermissions.Add(New XMLPermissions(strPermissionsLine, strDescriptionLine))
                                End If
                            Next
                        Catch ex As Exception
                            Debug.Write("CommentSection (permission Section) For Next Loop exception: " & ex.Message)

                        Finally

                        End Try
                        Dim extraLines As Integer = 0
                        'Remember start line (and put the first one
                        ' right before the first entry).
                        Dim insertLineParam As Integer = endLineParam - 1

                        ' Go through all detail nodes and generate the tags required
                        Try
                            For Each node As LanguageElement In detailNodes
                                'Messagebox.show(node.GetType.ToString, node.GetTypeName.ToString)
                                If node.Name IsNot Nothing Then
                                    If node.[GetType]().IsSubclassOf(GetType(Expression)) Then
                                        ' Only add returns tag if type is not void
                                        If returnLine.Length = 0 Then
                                            Select Case node.Name
                                                Case "AutoSizeChanged", "BackColorChanged", "BackgroundImageChanged"
                                                Case "BackgroundImageLayoutChanged", "BindingContextChanged", "CausesValidationChanged"
                                                Case "ChangeUICues", "Click", "ClientSizeChanged", "ContextMenuChanged"
                                                Case "ContextMenuStripChanged", "ControlAdded", "ControlRemoved", "CursorChanged"
                                                Case "Disposed", "DockChanged", "DoubleClick", "DragDrop", "DragEnter", "DragLeave"
                                                Case "DragOver", "EnabledChanged", "Enter", "FontChanged", "ForeColorChanged"
                                                Case "GiveFeedback", "GotFocus", "HandleCreated", "HandleDestroyed", "HelpRequested"
                                                Case "ImeModeChanged", "Invalidated", "KeyDown", "KeyPress", "KeyUp", "Layout"
                                                Case "Leave", "LocationChanged", "LostFocus", "MarginChanged", "MouseCaptureChanged", "Load"
                                                Case "MouseClick", "MouseDoubleClick", "MouseDown", "MouseEnter", "MouseHover"
                                                Case "MouseLeave", "MouseMove", "MouseUp", "MouseWheel", "Move", "Name"
                                                Case "PaddingChanged", "Paint", "ParentChanged", "PreviewKeyDown", "QueryAccessibilityHelp"
                                                Case "QueryContinueDrag", "RegionChanged", "Resize", "RightToLeftChanged", "SizeChanged"
                                                Case "StyleChanged", "SystemColorsChanged", "TabIndexChanged", "TabStopChanged"
                                                Case "TextChanged", "Validated", "Validating", "VisibleChanged", "SelectedIndexChanged"
                                                Case "DateChanged", "DateSelected", "ValueChanged", "CheckedChanged"
                                                Case "AcceptsTabChanged", "HScroll", "VScroll", "MultilineChanged"
                                                Case Else
                                                    ' And we don't already have one
                                                    'returnLine = "<returns>" + ReplaceKnownAbbreviationWords(StringHelper.SplitFunctionNameToWordString(node.Name)) + "</returns>"
                                                    Select Case node.Name.ToLower

                                                        Case "long"
                                                            returnLine = "<seealso cref=" & Chr(34) & "System.Int64" & Chr(34) & "/> As System.Int64"
                                                        Case "double"
                                                            returnLine = "<seealso cref=" & Chr(34) & "System.Double" & Chr(34) & "/> As System.Double"
                                                        Case "integer"
                                                            returnLine = "<seealso cref=" & Chr(34) & "System.Int32" & Chr(34) & "/> As System.Int32"
                                                        Case "string"
                                                            returnLine = "<seealso cref=" & Chr(34) & "System.String" & Chr(34) & "/> As System.String"
                                                        Case "boolean"
                                                            returnLine = "<seealso cref=" & Chr(34) & "System.Boolean" & Chr(34) & "/> As System.Boolean <c> True</c> if success, <c>False</c> otherwise."
                                                        Case Else
                                                            returnLine = ReplaceKnownAbbreviationWords(StringHelper.SplitFunctionNameToWordString(node.Name))

                                                    End Select
                                                    If CurrentReturnsText = String.Empty Then
                                                        CurrentReturnsText = returnLine
                                                    ElseIf Not CurrentReturnsText.Contains("<seealso cref=") Then
                                                        CurrentReturnsText += " " & returnLine
                                                    End If
                                                    extraLines += 1
                                                    changedParameters = True
                                            End Select

                                        ElseIf returnLine.Length > 0 Then
                                            ' if
                                            ' Remove returnLine
                                            returnLine = String.Empty
                                            extraLines -= 1
                                            changedParameters = True
                                            ' else if
                                        End If
                                    Else
                                        ' if
                                        ' Normal tag, just add it if it does not exist yet.
                                        Dim paramAlreadyExists As Boolean = False
                                        For Each xmlParam As XmlParameter In Parameters
                                            If xmlParam.name = node.Name Then
                                                paramAlreadyExists = True
                                                xmlParam.foundParameter = True
                                                insertLineParam = xmlParam.endLine
                                                Exit For
                                            End If
                                        Next
                                        ' if
                                        ' Does not exist yet? Then add new entry
                                        If paramAlreadyExists = False Then
                                            Dim index As Integer = 0
                                            For index = 0 To Parameters.Count - 1
                                                If Parameters(index).endLine > insertLineParam Then
                                                    Exit For
                                                End If

                                            Next
                                            ' for
                                            'Dim xmlParam As New XmlParameter(node.Name, "<param name=""" + node.Name + """>" + ReplaceKnownAbbreviationWords(StringHelper.SplitFunctionNameToWordString(node.Name)) + "</param>", insertLineParam, True)
                                            Dim xmlParam As New XmlParameter(node.Name, node.Name, insertLineParam, True)
                                            ParametersCounter += 1
                                            Parameters.Insert(index, xmlParam)
                                            extraLines += 1
                                            changedParameters = True
                                            ' if
                                        End If
                                        ' else
                                    End If
                                End If

                            Next
                        Catch ex As Exception

                        Finally

                        End Try

                        If CurrentReturnsText = String.Empty AndAlso MethodReturnType <> String.Empty Then
                            If MethodReturnType.ToLower.Contains("long") Then
                                CurrentReturnsText = "<seealso cref=" & Chr(34) & "System.Int64" & Chr(34) & "/> As System.Int64"
                            ElseIf MethodReturnType.ToLower.Contains("double") Then
                                CurrentReturnsText = "<seealso cref=" & Chr(34) & "System.Double" & Chr(34) & "/> As System.Double"
                            ElseIf MethodReturnType.ToLower.Contains("integer") Then
                                CurrentReturnsText = "<seealso cref=" & Chr(34) & "System.Int32" & Chr(34) & "/> As System.Int32"
                            ElseIf MethodReturnType.EndsWith("()") Then
                                CurrentReturnsText = "<seealso cref=" & Chr(34) & "System.array" & Chr(34) & "/> As System.array"
                            ElseIf MethodReturnType.ToLower.Contains("string") Then
                                CurrentReturnsText = "<seealso cref=" & Chr(34) & "System.String" & Chr(34) & "/> As System.String"
                            ElseIf MethodReturnType.ToLower.Contains("boolean") Then
                                CurrentReturnsText = "<seealso cref=" & Chr(34) & "System.Boolean" & Chr(34) & "/> As System.Boolean <c> True</c> if success, <c>False</c> otherwise."
                            End If
                        End If
                        Dim TabbedLayoutDialog As New TabbedLayout(NameSpaceName, document, CommentLineText, MethodArray, MethodLineText, MethodType, methodName, CurrentSummaryText, CurrentHistoryText, CurrentDescriptionText, CurrentRemarksText, CurrentReturnsText, String.Empty, Parameters, ParametersCounter, ParentType, XMLHistory, MethodReturnType, document, CurrentExamplesText, XMLSeeAlso, XMLPermissions, XMLException)
                        DocumentingFormCalled = True
                        Dim DialogResult As DialogResult = TabbedLayoutDialog.ShowDialog()
                        If DialogResult = Windows.Forms.DialogResult.Cancel Then
                            DocumentingFormCalled = False
                            TabbedLayoutDialog.Close()
                            Exit Sub
                        End If
                        DocumentingFormCalled = False
                        xmlCommentClosing = tabsText + My.Resources.RemarksXMLBeginTagText + vbCrLf
                        Dim TempRemarksArray() As String = TabbedLayoutDialog.RemarksEditor.Text.Split(Chr(10))
                        Dim Counter As Integer = 1
                        Dim tempItem As String = String.Empty
                        Try
                            For Each item As String In TempRemarksArray
                                item = item.Replace(Chr(10), String.Empty)
                                item = item.Replace(vbCrLf, String.Empty)
                                item = item.Replace(vbCr, String.Empty)
                                Select Case item.Trim
                                    Case String.Empty
                                        Exit Select
                                    Case vbLf
                                        Exit Select
                                    Case vbCrLf
                                        Exit Select
                                    Case Chr(10)
                                        Exit Select
                                    Case Else
                                        xmlCommentClosing += tabsText + ParseXMLCommentText(Counter, item) + vbCrLf
                                End Select
                                Counter += 1
                            Next
                        Catch ex As Exception
                            Debug.Write("CommentSection (Array Parse Section) For Next Loop exception: " & ex.Message)

                        Finally

                        End Try
                        xmlCommentClosing += tabsText + Chr(9) + My.Resources.HistoryParagraphText + vbCrLf
                        xmlCommentClosing += tabsText + "<list type=" + Chr(34) + "table" + Chr(34) + ">" + vbCrLf
                        xmlCommentClosing += tabsText + Chr(9) + "<listheader>" + vbCrLf
                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devName>Developer\Date\Time</devName>" + vbCrLf
                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devCompany>Developer Company</devCompany>" + vbCrLf
                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devPhone>Developer Phone</devPhone>" + vbCrLf
                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devEmail>Developer Email</devEmail>" + vbCrLf
                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devMachine>Developer On</devMachine>" + vbCrLf
                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<description>Description</description>" + vbCrLf
                        xmlCommentClosing += tabsText + Chr(9) + "</listheader>" + vbCrLf
                        Try
                            Dim HistoryRecordCount As Integer = TabbedLayoutDialog.HistoryDataGridView.Rows.Count
                            For Each xmlRow As System.Windows.Forms.DataGridViewRow In TabbedLayoutDialog.HistoryDataGridView.Rows
                                If HistoryRecordCount <= 1 Then
                                    Exit For
                                End If
                                Try
                                    xmlCommentClosing += tabsText + Chr(9) + "<item>" + vbCrLf
                                Catch ex As Exception

                                End Try
                                Try
                                    Dim TempItemCommentText As String = xmlRow.Cells.Item("DataGridViewDevNameColumn").Value.ToString
                                    If Not TempItemCommentText.Contains(vbLf) OrElse Not TempItemCommentText.Contains(vbCrLf) OrElse Not TempItemCommentText.Contains(vbCr) Then
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devName>" + xmlRow.Cells.Item("DataGridViewDevNameColumn").Value.ToString + "</devName>" + vbCrLf
                                    Else
                                        TempItemCommentText = TempItemCommentText.Replace(vbLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCrLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCr, " ")
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devName>" + TempItemCommentText + "</devName>" + vbCrLf
                                    End If
                                Catch ex As Exception
                                    xmlCommentClosing = xmlCommentClosing.Substring(0, xmlCommentClosing.Length - "      ''' 	<devName>".Length)
                                    Exit For
                                End Try
                                Try
                                    Dim TempItemCommentText As String = xmlRow.Cells.Item("DataGridViewDevCompanyColumn").Value.ToString
                                    If Not TempItemCommentText.Contains(vbLf) OrElse Not TempItemCommentText.Contains(vbCrLf) OrElse Not TempItemCommentText.Contains(vbCr) Then
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devCompany>" + xmlRow.Cells.Item("DataGridViewDevCompanyColumn").Value.ToString + "</devCompany>" + vbCrLf
                                    Else
                                        TempItemCommentText = TempItemCommentText.Replace(vbLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCrLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCr, " ")
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devCompany>" + TempItemCommentText + "</devCompany>" + vbCrLf
                                    End If
                                Catch ex As Exception
                                    xmlCommentClosing = xmlCommentClosing.Substring(0, xmlCommentClosing.Length - "      ''' 	<devCompany>".Length)
                                    Exit For
                                End Try
                                Try
                                    Dim TempItemCommentText As String = xmlRow.Cells.Item("DataGridViewDevPhoneColumn").Value.ToString
                                    If Not TempItemCommentText.Contains(vbLf) OrElse Not TempItemCommentText.Contains(vbCrLf) OrElse Not TempItemCommentText.Contains(vbCr) Then
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devPhone>" + xmlRow.Cells.Item("DataGridViewDevPhoneColumn").Value.ToString + "</devPhone>" + vbCrLf
                                    Else
                                        TempItemCommentText = TempItemCommentText.Replace(vbLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCrLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCr, " ")
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devPhone>" + TempItemCommentText + "</devPhone>" + vbCrLf
                                    End If
                                Catch ex As Exception
                                    xmlCommentClosing = xmlCommentClosing.Substring(0, xmlCommentClosing.Length - "      ''' 	<devPhone>".Length)
                                    Exit For
                                End Try
                                Try
                                    Dim TempItemCommentText As String = xmlRow.Cells.Item("DataGridViewDevEmailColumn").Value.ToString
                                    If Not TempItemCommentText.Contains(vbLf) OrElse Not TempItemCommentText.Contains(vbCrLf) OrElse Not TempItemCommentText.Contains(vbCr) Then
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devEmail>" + xmlRow.Cells.Item("DataGridViewDevEmailColumn").Value.ToString + "</devEmail>" + vbCrLf
                                    Else
                                        TempItemCommentText = TempItemCommentText.Replace(vbLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCrLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCr, " ")
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devEmail>" + TempItemCommentText + "</devEmail>" + vbCrLf
                                    End If
                                Catch ex As Exception
                                    xmlCommentClosing = xmlCommentClosing.Substring(0, xmlCommentClosing.Length - "      ''' 	<devEmail>".Length)
                                    Exit For
                                End Try
                                Try
                                    Dim TempItemCommentText As String = xmlRow.Cells.Item("DataGridViewDevMachineColumn").Value.ToString
                                    If Not TempItemCommentText.Contains(vbLf) OrElse Not TempItemCommentText.Contains(vbCrLf) OrElse Not TempItemCommentText.Contains(vbCr) Then
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devMachine>" + xmlRow.Cells.Item("DataGridViewDevMachineColumn").Value.ToString + "</devMachine>" + vbCrLf
                                    Else
                                        TempItemCommentText = TempItemCommentText.Replace(vbLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCrLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCr, " ")
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devMachine>" + TempItemCommentText + "</devMachine>" + vbCrLf
                                    End If
                                Catch ex As Exception
                                    xmlCommentClosing = xmlCommentClosing.Substring(0, xmlCommentClosing.Length - "      ''' 	<devMachine>".Length)
                                    Exit For
                                End Try
                                Try
                                    Dim TempDescriptionCommentText As String = xmlRow.Cells.Item("DataGridViewDescriptionColumn").Value.ToString
                                    If Not TempDescriptionCommentText.Contains(vbLf) OrElse Not TempDescriptionCommentText.Contains(vbCrLf) OrElse Not TempDescriptionCommentText.Contains(vbCr) Then
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<description>" + xmlRow.Cells.Item("DataGridViewDescriptionColumn").Value.ToString + "</description>" + vbCrLf
                                    Else
                                        TempDescriptionCommentText = TempDescriptionCommentText.Replace(vbLf, " ")
                                        TempDescriptionCommentText = TempDescriptionCommentText.Replace(vbCrLf, " ")
                                        TempDescriptionCommentText = TempDescriptionCommentText.Replace(vbCr, " ")
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<description>" + TempDescriptionCommentText + "</description>" + vbCrLf
                                    End If
                                Catch ex As Exception
                                    xmlCommentClosing = xmlCommentClosing.Substring(0, xmlCommentClosing.Length - "      ''' 	<description>".Length)
                                    Exit For

                                End Try
                                Try
                                    xmlCommentClosing += tabsText + Chr(9) + "</item>" + vbCrLf
                                Catch ex As Exception

                                End Try
                                HistoryRecordCount -= 1
                            Next
                        Catch ex As Exception

                        End Try
                        xmlCommentClosing += tabsText + "</list>" + vbCrLf
                        xmlCommentClosing += tabsText + "</remarks>" + vbCrLf

                        xmlCommentClosing += tabsText + "<example>" + vbCrLf
                        Dim TempExampleArray() As String = TabbedLayoutDialog.ExamplesEditor.Text.Split(Chr(10))
                        Dim ExampleLineCounter As Integer = 1
                        Dim ExampleLineTempItem As String = String.Empty
                        For Each item As String In TempExampleArray
                            item = item.Replace(Chr(10), String.Empty)
                            item = item.Replace(vbCrLf, String.Empty)
                            item = item.Replace(vbCr, String.Empty)
                            Select Case item.Trim
                                Case String.Empty
                                    Exit Select
                                Case vbLf
                                    Exit Select
                                Case vbCrLf
                                    Exit Select
                                Case Chr(10)
                                    Exit Select
                                Case Else
                                    xmlCommentClosing += tabsText + ParseXMLCommentText(ExampleLineCounter, item) + vbCrLf
                            End Select
                            ExampleLineCounter += 1
                        Next
                        xmlCommentClosing += tabsText + "</example>" + vbCrLf
                        Try
                            For Each xmlRow As System.Windows.Forms.DataGridViewRow In TabbedLayoutDialog.ExceptionsDataGridView.Rows
                                Try
                                    Dim TempCrefCommentText As String = xmlRow.Cells.Item("DataGridViewTextBoxColumnExceptionsCref").Value.ToString
                                    Dim TempDescriptionCommentText As String = xmlRow.Cells.Item("DataGridViewTextBoxColumnExceptionsDescription").Value.ToString
                                    If TempDescriptionCommentText.Contains(Chr(34)) Then
                                        Dim tempArray() As String = TempDescriptionCommentText.Split(Chr(34))
                                        TempDescriptionCommentText = tempArray(0) & Chr(34) & tempArray(1) & Chr(34) & tempArray(2)
                                    End If
                                    xmlCommentClosing += tabsText + "<exception cref=" & Chr(34) & TempCrefCommentText & Chr(34) & ">" & TempDescriptionCommentText & "</exception>" + vbCrLf
                                Catch ex As Exception

                                End Try
                            Next
                        Catch ex As Exception

                        End Try
                        Try
                            For Each xmlRow As System.Windows.Forms.DataGridViewRow In TabbedLayoutDialog.SeeAlsoDataGridView.Rows
                                Try
                                    Dim TempCrefCommentText As String = xmlRow.Cells.Item("DataGridViewTextBoxColumnSeeAlsoCref").Value.ToString
                                    Dim TempDescriptionCommentText As String = xmlRow.Cells.Item("DataGridViewTextBoxColumnSeeAlsoDescription").Value.ToString
                                    xmlCommentClosing += tabsText + "<seealso cref=" & Chr(34) & TempCrefCommentText & Chr(34) & ">" & TempDescriptionCommentText & "</seealso>" + vbCrLf
                                Catch ex As Exception

                                End Try
                            Next
                        Catch ex As Exception

                        End Try
                        Try
                            For Each xmlRow As System.Windows.Forms.DataGridViewRow In TabbedLayoutDialog.PermissionDataGridView.Rows
                                Try
                                    Dim TempCrefCommentText As String = xmlRow.Cells.Item("DataGridViewTextBoxColumnPermissionsCref").Value.ToString
                                    Dim TempDescriptionCommentText As String = xmlRow.Cells.Item("DataGridViewTextBoxColumnPermissionsDescription").Value.ToString
                                    xmlCommentClosing += tabsText + "<permission cref=" & Chr(34) & TempCrefCommentText & Chr(34) & ">" & TempDescriptionCommentText & "</permission>" + vbCrLf
                                Catch ex As Exception

                                End Try
                            Next
                        Catch ex As Exception

                        End Try
                        If xmlCommentClosing.EndsWith(vbCrLf) Then
                            xmlCommentClosing = xmlCommentClosing.Substring(0, xmlCommentClosing.Length - vbCrLf.Length)
                        End If

                        ' Now replace Parameters if stuff has changed
                        If changedParameters Then
                            ' Build new Parameters comment text
                            Dim newCommentParams As String = String.Empty
                            Dim newCommentText As String = String.Empty
                            Dim newReturnCommentText As String = String.Empty
                            Dim RowCounter As Integer = 0
                            For Each xmlParam As XmlParameter In Parameters
                                If xmlParam.foundParameter Then
                                    Dim xmlParamLines As String() = StringHelper.SplitMultiLineText(xmlParam.text)
                                    For Each commentLine As String In xmlParamLines
                                        Dim UpdatedCommentLine As String = "<param name=""" + TabbedLayoutDialog.ParametersDataGridView.Item("ParmetersName", RowCounter).Value.ToString + """>" + TabbedLayoutDialog.ParametersDataGridView.Item("ParmetersXMLComment", RowCounter).Value.ToString + "</param>"
                                        newCommentParams += tabsText + UpdatedCommentLine + vbCrLf
                                        RowCounter += 1
                                    Next
                                End If
                            Next
                            xmlComment = tabsText + My.Resources.SummaryXMLBeginTagText + vbCrLf
                            Dim TempSummaryArray() As String = TabbedLayoutDialog.SummaryEditor.Text.Split(Chr(10))
                            Dim SummaryLineCounter As Integer = 1
                            Dim SummaryLineTempItem As String = String.Empty
                            For Each item As String In TempSummaryArray
                                item = item.Replace(Chr(10), String.Empty)
                                item = item.Replace(vbCrLf, String.Empty)
                                item = item.Replace(vbCr, String.Empty)
                                Select Case item.Trim
                                    Case String.Empty
                                        Exit Select
                                    Case vbLf
                                        Exit Select
                                    Case vbCrLf
                                        Exit Select
                                    Case Chr(10)
                                        Exit Select
                                    Case Else
                                        xmlComment += tabsText + ParseXMLCommentText(SummaryLineCounter, item) + vbCrLf
                                End Select
                                SummaryLineCounter += 1
                            Next
                            xmlComment += tabsText + My.Resources.SummaryXMLEndTagText + vbCrLf
                            Dim UpdatedReturnLine As String = String.Empty
                            If TabbedLayoutDialog.ReturnsEditor.Text.Length > 0 Then
                                newReturnCommentText = tabsText + "<returns>" + vbCrLf
                                Dim TempReturnArray() As String = TabbedLayoutDialog.ReturnsEditor.Text.Split(Chr(10))
                                Dim ReturnsLineCounter As Integer = 1
                                Dim ReturnsLineTempItem As String = String.Empty
                                For Each item As String In TempReturnArray
                                    item = item.Replace(Chr(10), String.Empty)
                                    item = item.Replace(vbCrLf, String.Empty)
                                    item = item.Replace(vbCr, String.Empty)
                                    Select Case item.Trim
                                        Case String.Empty
                                            Exit Select
                                        Case vbLf
                                            Exit Select
                                        Case vbCrLf
                                            Exit Select
                                        Case Chr(10)
                                            Exit Select
                                        Case Else
                                            newReturnCommentText += tabsText + ParseXMLCommentText(ReturnsLineCounter, item) + vbCrLf
                                    End Select
                                    ReturnsLineCounter += 1
                                Next
                                newReturnCommentText += tabsText + "</returns>" + vbCrLf
                                newCommentText += xmlComment + newCommentParams + newReturnCommentText + xmlCommentClosing + vbCrLf
                            Else
                                newCommentText += xmlComment + newCommentParams + xmlCommentClosing + vbCrLf

                            End If

                            ' Replace parameter comment
                            If XmlCommentLines IsNot Nothing Then
                                If Not XmlCommentLines.Length - 1 = 0 Then
                                    startLineParam += 2
                                    endLineParam = startLineParam - (XmlCommentLines.Length - 1)
                                    If isAttributeText = True Then
                                        document.DeleteText(startLineParam - 1, 1, endLineParam - 1, 1)
                                    Else
                                        document.DeleteText(startLineParam, 1, endLineParam, 1)

                                    End If

                                    document.Selection.Select(endLineParam, endLineParam)
                                    CurrentTextLine = document.Selection.Text
                                    newCommentText = vbCrLf & newCommentText
                                    If newCommentText.EndsWith(vbCrLf) Then
                                        newCommentText = newCommentText.Substring(0, newCommentText.Length - vbCrLf.Length)
                                    End If
                                    If isAttributeText = True Then
                                        document.SetText(endLineParam - 2, 1, endLineParam - 2, 1, newCommentText)
                                    Else
                                        document.SetText(endLineParam - 1, 1, endLineParam - 1, 1, newCommentText)
                                    End If
                                    CommentLineText = ""
                                    CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 1, 0, CodeRush.Source.Active, 1)
                                    CodeRush.Outline.Toggle()
                                    bnlDirectives = False
                                Else
                                    If IsRegion = True Then
                                        If Not IsXMLCommentExist = True Then
                                            remLine += 1
                                        End If
                                    End If
                                    document.Selection.Select(remLine, remLine)
                                    CurrentTextLine = document.Selection.Text
                                    If Not CurrentTextLine = String.Empty Then
                                        remLine -= 1
                                    End If
                                    Dim intStartLine As Integer = remLine
                                    Dim intEndLine As Integer = remLine
                                    newCommentText = vbCrLf & newCommentText
                                    If newCommentText.EndsWith(vbCrLf) Then
                                        newCommentText = newCommentText.Substring(0, newCommentText.Length - vbCrLf.Length)
                                    End If
                                    If isAttributeText = True Then
                                        document.SetText(intStartLine - 1, 1, intEndLine - 1, 1, newCommentText)
                                    Else
                                        document.SetText(intStartLine, 1, intEndLine, 1, newCommentText)
                                    End If

                                    CommentLineText = ""
                                    CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 1, 0, CodeRush.Source.Active, 1)
                                    CodeRush.Outline.Toggle()
                                    bnlDirectives = False
                                End If
                            Else
                                If IsRegion = True Then
                                    If Not IsXMLCommentExist = True Then
                                        remLine += 1
                                    End If
                                End If
                                document.Selection.Select(remLine, remLine)
                                CurrentTextLine = document.Selection.Text
                                If Not CurrentTextLine = String.Empty Then
                                    remLine -= 1
                                End If
                                Dim intStartLine As Integer = remLine
                                Dim intEndLine As Integer = remLine
                                newCommentText = vbCrLf & newCommentText
                                If newCommentText.EndsWith(vbCrLf) Then
                                    newCommentText = newCommentText.Substring(0, newCommentText.Length - vbCrLf.Length)
                                End If
                                If isAttributeText = True Then
                                    document.SetText(intStartLine - 1, 1, intEndLine - 1, 1, newCommentText)
                                Else
                                    document.SetText(intStartLine, 1, intEndLine, 1, newCommentText)
                                End If
                                CommentLineText = ""
                                CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 1, 0, CodeRush.Source.Active, 1)
                                CodeRush.Outline.Toggle()

                                bnlDirectives = False
                            End If

                            ' Add number of new lines
                            remLine += extraLines
                            ' if
                        End If
                        DocumentingFormCalled = False
                        TabbedLayoutDialog.Close()

                    End If

                Case LanguageElementType.Module, LanguageElementType.Property, LanguageElementType.Variable, LanguageElementType.InitializedVariable, LanguageElementType.Class, LanguageElementType.Struct, LanguageElementType.Enum, LanguageElementType.EnumElement, LanguageElementType.Const, LanguageElementType.Event, LanguageElementType.Interface

                    'MethodLineText = lines(checkLineNum + 1).Trim()
                    MethodLineText = lines(checkLineNum).Trim()

                    'If MethodLineText = String.Empty Then
                    '    MethodLineText = lines(checkLineNum).Trim()
                    '    PlusOne = True
                    'End If

                    If IsRegion = True Then
                        If Not IsXMLCommentExist = True Then
                            remLine -= 1
                        Else

                        End If
                    End If
                    MethodType = String.Empty
                    Select Case elementType
                        Case LanguageElementType.Property
                            MethodType = "Property "
                        Case LanguageElementType.Variable
                            MethodType = "Variable "
                        Case LanguageElementType.InitializedVariable
                            MethodType = "Initialized Variable "
                        Case LanguageElementType.Class
                            MethodType = "Class "
                        Case LanguageElementType.Module
                            MethodType = "Module "
                        Case LanguageElementType.Struct
                            MethodType = "Structure "
                        Case LanguageElementType.Enum
                            MethodType = "Enum "
                        Case LanguageElementType.EnumElement
                            MethodType = "Enum Element "
                        Case LanguageElementType.Const
                            MethodType = "Const "
                        Case LanguageElementType.Event
                            MethodType = "Event "
                        Case LanguageElementType.Interface
                            MethodType = "Interface "
                        Case LanguageElementType.Delegate
                            MethodType = My.Resources.DelegateText
                    End Select
                    CurrentReturnsText = "Nothing"

                    If Me.GenerateXmlTags AndAlso detailNodes IsNot Nothing Then
                        xmlComment = String.Empty
                        startLineParam = checkLineNum - 1
                        Try
                            While checkLineNum > 0
                                checkLineNum -= 1
                                Dim lineText As String = lines(checkLineNum).Trim()

                                If lineText.Contains(My.Resources.DescriptionBeginTagText) Then
                                    Dim strTemp As String = My.Resources.DescriptionBeginTagText
                                    Dim strTempText As String = lineText.Substring(strTemp.Length, lineText.Length - strTemp.Length)
                                    Select Case strTempText
                                        Case My.Resources.DescriptionTextAndEndTagText
                                            'Do Nothing
                                        Case Else
                                            CurrentDescriptionText = strTempText

                                    End Select
                                End If
                                If lineText.Contains(My.Resources.DevMachineBeginTagText) Then
                                    Dim strTemp As String = My.Resources.DevMachineBeginTagText
                                    Dim strTempText As String = lineText.Substring(strTemp.Length, lineText.Length - strTemp.Length)
                                    Select Case strTempText
                                        Case My.Resources.DevMachineTextAndEndTagText
                                            'Do Nothing
                                        Case Else
                                            CurrentDevMachineText = strTempText

                                    End Select
                                End If
                                If lineText.Contains(My.Resources.DevEmailBeginTagText) Then
                                    Dim strTemp As String = My.Resources.DevEmailBeginTagText
                                    Dim strTempText As String = lineText.Substring(strTemp.Length, lineText.Length - strTemp.Length)
                                    Select Case strTempText
                                        Case My.Resources.DevEmailTextAndEndTagText
                                            'Do Nothing
                                        Case Else
                                            CurrentDevEmailText = strTempText

                                    End Select
                                End If
                                If lineText.Contains(My.Resources.DevPhoneBeginTagText) Then
                                    Dim strTemp As String = My.Resources.DevPhoneBeginTagText
                                    Dim strTempText As String = lineText.Substring(strTemp.Length, lineText.Length - strTemp.Length)
                                    Select Case strTempText
                                        Case My.Resources.DevPhoneTextAndEndTagText
                                            'Do Nothing
                                        Case Else
                                            CurrentDevPhoneText = strTempText

                                    End Select
                                End If
                                If lineText.Contains(My.Resources.DevCompanyBeginTagText) Then
                                    Dim strTemp As String = My.Resources.DevCompanyBeginTagText
                                    Dim strTempText As String = lineText.Substring(strTemp.Length, lineText.Length - strTemp.Length)
                                    Select Case strTempText
                                        Case My.Resources.DevCompanyTextAndEndTagText
                                            'Do Nothing
                                        Case Else
                                            CurrentDevCompanyText = strTempText

                                    End Select
                                End If
                                If lineText.Contains(My.Resources.DevNameBeginTagText) Then
                                    Dim strTemp As String = My.Resources.DevNameBeginTagText
                                    Dim strTempText As String = lineText.Substring(strTemp.Length, lineText.Length - strTemp.Length)
                                    Select Case strTempText
                                        Case My.Resources.DevNameTextAndEndTagText
                                            'Do Nothing
                                        Case Else
                                            CurrentDevNameText = strTempText

                                    End Select
                                End If
                                If lineText.Contains(My.Resources.ParamNameBeginTagText) Then
                                    'CurrentSummaryText = ""
                                End If
                                If lineText.StartsWith(My.Resources.XMLLineStartCharText) Then
                                    xmlComment = lineText.Substring(3).Trim() + vbCrLf + xmlComment
                                Else
                                    If lineText.StartsWith("<") Then
                                        Continue While
                                    Else
                                        Exit While
                                    End If
                                    ' Build xml comment lines in reverse
                                End If
                            End While
                        Catch ex As Exception
                            Debug.Write("First CommentSection Do While Loop exception: " & ex.Message)
                        Finally

                        End Try
                        Try
                            XmlCommentLines = Nothing

                        Catch ex As Exception


                        End Try
                        If Not xmlComment Is Nothing AndAlso Not xmlComment = "" Then

                            XmlCommentLines = StringHelper.SplitMultiLineText(xmlComment)
                            Try
                                For num As Integer = 0 To XmlCommentLines.Length - 1
                                    If XmlCommentLines(num).StartsWith(My.Resources.SummaryXMLBeginTagText) Then
                                        Dim TempText As String = XmlCommentLines(num).Substring(My.Resources.SummaryXMLBeginTagText.Length, XmlCommentLines(num).Length - My.Resources.SummaryXMLBeginTagText.Length)
                                        TempText = TempText.Replace(Chr(10), String.Empty)
                                        TempText = TempText.Replace(vbCrLf, String.Empty)
                                        TempText = TempText.Replace(vbCr, String.Empty)
                                        Select Case TempText.Trim
                                            Case String.Empty
                                                Exit Select
                                            Case vbLf
                                                Exit Select
                                            Case vbCrLf
                                                Exit Select
                                            Case Chr(10)
                                                Exit Select
                                            Case Else
                                                CurrentSummaryText = TempText & vbCrLf
                                        End Select
                                        num += 1
                                        Do Until XmlCommentLines(num).EndsWith(My.Resources.SummaryXMLEndTagText) = True AndAlso num + 1 < XmlCommentLines.Length
                                            If XmlCommentLines(num).StartsWith(My.Resources.ParaXMLBeginTagText) AndAlso XmlCommentLines(num).EndsWith(My.Resources.ParaXMLEndTagText) Then
                                                CurrentSummaryText += XmlCommentLines(num).Substring(My.Resources.ParaXMLBeginTagText.Length, XmlCommentLines(num).Length - (My.Resources.ParaXMLBeginTagText.Length + My.Resources.ParaXMLEndTagText.Length)) & vbCrLf
                                            Else
                                                CurrentSummaryText += XmlCommentLines(num) & vbCrLf
                                            End If
                                            num += 1
                                        Loop
                                    End If
                                Next
                            Catch ex As Exception
                                Debug.Write("CommentSection (Summary Section) For Next Loop exception: " & ex.Message)

                            Finally

                            End Try
                            Try
                                For num As Integer = 0 To XmlCommentLines.Length - 1
                                    If XmlCommentLines(num).StartsWith(My.Resources.RemarksXMLBeginTagText) Then
                                        Dim TempText As String = XmlCommentLines(num).Substring(My.Resources.RemarksXMLBeginTagText.Length, XmlCommentLines(num).Length - My.Resources.RemarksXMLBeginTagText.Length)
                                        TempText = TempText.Replace(Chr(10), String.Empty)
                                        TempText = TempText.Replace(vbCrLf, String.Empty)
                                        TempText = TempText.Replace(vbCr, String.Empty)
                                        Select Case TempText.Trim
                                            Case String.Empty
                                                Exit Select
                                            Case vbLf
                                                Exit Select
                                            Case vbCrLf
                                                Exit Select
                                            Case Chr(10)
                                                Exit Select
                                            Case Else
                                                CurrentRemarksText = TempText & vbCrLf
                                        End Select
                                        num += 1
                                        Do Until XmlCommentLines(num).Contains(My.Resources.HistoryParagraphText) = True AndAlso num + 1 < XmlCommentLines.Length
                                            If XmlCommentLines(num).StartsWith(My.Resources.ParaXMLBeginTagText) AndAlso XmlCommentLines(num).EndsWith(My.Resources.ParaXMLEndTagText) Then
                                                CurrentRemarksText += XmlCommentLines(num).Substring(My.Resources.ParaXMLBeginTagText.Length, XmlCommentLines(num).Length - (My.Resources.ParaXMLBeginTagText.Length + My.Resources.ParaXMLEndTagText.Length)) & vbCrLf
                                            Else
                                                CurrentRemarksText += XmlCommentLines(num) & vbCrLf
                                            End If
                                            num += 1
                                        Loop
                                    End If
                                Next
                            Catch ex As Exception
                                Debug.Write("CommentSection (remarks Section) For Next Loop exception: " & ex.Message)

                            Finally

                            End Try
                            Try
                                For num As Integer = 0 To XmlCommentLines.Length - 1
                                    If XmlCommentLines(num).StartsWith("<example>") Then
                                        Dim TempText As String = XmlCommentLines(num).Substring("<example>".Length, XmlCommentLines(num).Length - "<example>".Length)
                                        TempText = TempText.Replace(Chr(10), String.Empty)
                                        TempText = TempText.Replace(vbCrLf, String.Empty)
                                        TempText = TempText.Replace(vbCr, String.Empty)
                                        Select Case TempText.Trim
                                            Case String.Empty
                                                Exit Select
                                            Case vbLf
                                                Exit Select
                                            Case vbCrLf
                                                Exit Select
                                            Case Chr(10)
                                                Exit Select
                                            Case Else
                                                CurrentExamplesText = TempText & vbCrLf
                                        End Select
                                        num += 1
                                        Do Until XmlCommentLines(num).EndsWith("</example>") = True AndAlso num + 1 < XmlCommentLines.Length
                                            If XmlCommentLines(num).StartsWith(My.Resources.ParaXMLBeginTagText) AndAlso XmlCommentLines(num).EndsWith(My.Resources.ParaXMLEndTagText) Then
                                                CurrentExamplesText += XmlCommentLines(num).Substring(My.Resources.ParaXMLBeginTagText.Length, XmlCommentLines(num).Length - (My.Resources.ParaXMLBeginTagText.Length + My.Resources.ParaXMLEndTagText.Length)) & vbCrLf
                                            Else
                                                CurrentExamplesText += XmlCommentLines(num) & vbCrLf
                                            End If
                                            num += 1
                                        Loop
                                    End If
                                Next
                            Catch ex As Exception
                                Debug.Write("CommentSection (example Section) For Next Loop exception: " & ex.Message)

                            Finally

                            End Try
                            Try
                                For num As Integer = 0 To XmlCommentLines.Length - 1
                                    If XmlCommentLines(num).StartsWith("<exception cref") Then
                                        Dim strTemp As String = String.Empty
                                        Dim strExceptionLine As String = String.Empty
                                        Dim strDescriptionLine As String = String.Empty
                                        strTemp = XmlCommentLines(num).Substring("<exception cref=".Length + 1, (XmlCommentLines(num).Length - ("<exception cref=".Length + 1)) - "</exception>".Length)
                                        If strTemp.Contains("paramref") Then
                                            Dim tempArray() As String = strTemp.Split(Chr(34) & ">")
                                            Dim ArrayUpperBounds As Integer = tempArray.GetUpperBound(0)
                                            strExceptionLine = tempArray(0).ToString
                                            strDescriptionLine = tempArray(1).Substring(1, tempArray(1).Length - 1)
                                            Try
                                                If strDescriptionLine.Contains("paramref name=") Then
                                                    strDescriptionLine += Chr(34) & tempArray(2) & Chr(34) & tempArray(3)

                                                End If
                                            Catch ex As Exception

                                            End Try

                                        Else
                                            Dim tempArray() As String = strTemp.Split(Chr(34) & ">")
                                            strExceptionLine = tempArray(0).ToString
                                            strDescriptionLine = tempArray(1).Substring(1, tempArray(1).Length - 1)
                                        End If
                                        XMLException.Add(New XMLException(strExceptionLine, strDescriptionLine))
                                    End If
                                Next
                            Catch ex As Exception
                                Debug.Write("CommentSection (exception Section) For Next Loop exception: " & ex.Message)

                            Finally

                            End Try
                            Try
                                For num As Integer = 0 To XmlCommentLines.Length - 1
                                    If XmlCommentLines(num).StartsWith("<seealso cref") Then
                                        Dim strTemp As String = String.Empty
                                        Dim strSeeAlsoLine As String = String.Empty
                                        Dim strDescriptionLine As String = String.Empty
                                        strTemp = XmlCommentLines(num).Substring("<seealso cref=".Length + 1, (XmlCommentLines(num).Length - ("<seealso cref=".Length + 1)) - "</seealso>".Length)
                                        Dim tempArray() As String = strTemp.Split(Chr(34) & ">")
                                        strSeeAlsoLine = tempArray(0).ToString
                                        strDescriptionLine = tempArray(1).Substring(1, tempArray(1).Length - 1)
                                        XMLSeeAlso.Add(New XMLSeeAlso(strSeeAlsoLine, strDescriptionLine))
                                    End If
                                Next
                            Catch ex As Exception
                                Debug.Write("CommentSection (seealso Section) For Next Loop exception: " & ex.Message)

                            Finally

                            End Try
                            Try
                                For num As Integer = 0 To XmlCommentLines.Length - 1
                                    If XmlCommentLines(num).StartsWith("<permission cref") Then
                                        Dim strTemp As String = String.Empty
                                        Dim strPermissionsLine As String = String.Empty
                                        Dim strDescriptionLine As String = String.Empty
                                        strTemp = XmlCommentLines(num).Substring("<permission cref=".Length + 1, (XmlCommentLines(num).Length - ("<permission cref=".Length + 1)) - "</permission>".Length)
                                        Dim tempArray() As String = strTemp.Split(Chr(34) & ">")
                                        strPermissionsLine = tempArray(0).ToString
                                        strDescriptionLine = tempArray(1).Substring(1, tempArray(1).Length - 1)
                                        XMLPermissions.Add(New XMLPermissions(strPermissionsLine, strDescriptionLine))
                                    End If
                                Next
                            Catch ex As Exception
                                Debug.Write("CommentSection (permission Section) For Next Loop exception: " & ex.Message)

                            Finally

                            End Try
                            valueLine = String.Empty
                            returnLine = String.Empty
                            'startLineParam = -1
                            'endLineParam = 0

                            'If startLineParam = -1 Then
                            '    startLineParam = xmlCommentLines.Length - 1
                            'End If

                            changedParameters = False
                            ' Ok, split up xml comment into main parts and Parameters and
                            ' return type. Then we can replace the Parameters and the return
                            ' type. Go through all lines ...
                            ParametersCounter = 0
                            Try
                                For num As Integer = 0 To XmlCommentLines.Length - 1
                                    If XmlCommentLines(num).StartsWith("<value>") AndAlso XmlCommentLines(num).EndsWith("</value>") Then
                                        Dim TempText As String = XmlCommentLines(num).Substring("<value>".Length, XmlCommentLines(num).Length - ("<value>".Length + "</value>".Length))
                                        TempText = TempText.Replace(Chr(10), String.Empty)
                                        TempText = TempText.Replace(vbCrLf, String.Empty)
                                        TempText = TempText.Replace(vbCr, String.Empty)
                                        Select Case TempText.Trim
                                            Case String.Empty
                                                Exit Select
                                            Case vbLf
                                                Exit Select
                                            Case vbCrLf
                                                Exit Select
                                            Case Chr(10)
                                                Exit Select
                                            Case Else
                                                CurrentValueText = TempText & vbCrLf
                                        End Select
                                        Exit For

                                    End If

                                    If XmlCommentLines(num).StartsWith("<value>") Then
                                        Dim TempText As String = XmlCommentLines(num).Substring("<value>".Length, XmlCommentLines(num).Length - "<value>".Length)
                                        TempText = TempText.Replace(Chr(10), String.Empty)
                                        TempText = TempText.Replace(vbCrLf, String.Empty)
                                        TempText = TempText.Replace(vbCr, String.Empty)
                                        Select Case TempText.Trim
                                            Case String.Empty
                                                Exit Select
                                            Case vbLf
                                                Exit Select
                                            Case vbCrLf
                                                Exit Select
                                            Case Chr(10)
                                                Exit Select
                                            Case Else
                                                CurrentValueText = TempText & vbCrLf
                                        End Select
                                        num += 1
                                        Do Until XmlCommentLines(num).EndsWith("</value>") = True AndAlso num + 1 < XmlCommentLines.Length
                                            If XmlCommentLines(num).StartsWith(My.Resources.ParaXMLBeginTagText) AndAlso XmlCommentLines(num).EndsWith(My.Resources.ParaXMLEndTagText) Then
                                                CurrentValueText += XmlCommentLines(num).Substring(My.Resources.ParaXMLBeginTagText.Length, XmlCommentLines(num).Length - (My.Resources.ParaXMLBeginTagText.Length + My.Resources.ParaXMLEndTagText.Length)) & vbCrLf
                                            Else
                                                CurrentValueText += XmlCommentLines(num) & vbCrLf
                                            End If
                                            num += 1
                                        Loop
                                        changedParameters = True
                                        Exit For
                                    End If
                                Next
                            Catch ex As Exception
                                Debug.Write("CommentSection (value Section) For Next Loop exception: " & ex.Message)

                            Finally

                            End Try

                            'If startLineParam = -1 Then
                            '    startLineParam = xmlCommentLines.Length - 1
                            'End If
                            Try
                                For num As Integer = 0 To XmlCommentLines.Length - 1
                                    Dim RecordCounter As Integer = 0
                                    If XmlCommentLines(num).StartsWith("<item>") Then
                                        Dim strDevNameLine As String = String.Empty
                                        Dim strDescriptionLine As String = String.Empty
                                        Dim strDevCompanyLine As String = String.Empty
                                        Dim strDevPhoneLine As String = String.Empty
                                        Dim strDevEmailLine As String = String.Empty
                                        Dim strDevMachineLine As String = String.Empty

                                        While XmlCommentLines(num).EndsWith("</item>") = False AndAlso num + 1 < XmlCommentLines.Length
                                            num += 1
                                            If XmlCommentLines(num).StartsWith("<devName>") Then
                                                strDevNameLine = XmlCommentLines(num).Substring("<devName>".Length, XmlCommentLines(num).Length - "<devName>".Length - "</devName>".Length)
                                            End If
                                            num += 1
                                            If XmlCommentLines(num).StartsWith("<devCompany>") Then
                                                strDevCompanyLine = XmlCommentLines(num).Substring("<devCompany>".Length, XmlCommentLines(num).Length - "<devCompany>".Length - "</devCompany>".Length)
                                            End If
                                            num += 1
                                            If XmlCommentLines(num).StartsWith("<devPhone>") Then
                                                strDevPhoneLine = XmlCommentLines(num).Substring("<devPhone>".Length, XmlCommentLines(num).Length - "<devPhone>".Length - "</devPhone>".Length)
                                            End If
                                            num += 1
                                            If XmlCommentLines(num).StartsWith("<devEmail>") Then
                                                strDevEmailLine = XmlCommentLines(num).Substring("<devEmail>".Length, XmlCommentLines(num).Length - "<devEmail>".Length - "</devEmail>".Length)
                                            End If
                                            num += 1
                                            If XmlCommentLines(num).StartsWith("<devMachine>") Then
                                                strDevMachineLine = XmlCommentLines(num).Substring("<devMachine>".Length, XmlCommentLines(num).Length - "<devMachine>".Length - "</devMachine>".Length)
                                            End If
                                            num += 1
                                            If XmlCommentLines(num).StartsWith("<description>") Then
                                                strDescriptionLine = XmlCommentLines(num).Substring("<description>".Length, XmlCommentLines(num).Length - "<description>".Length - "</description>".Length)
                                            End If
                                            num += 1

                                            XMLHistory.Add(New XMLHistory(strDevNameLine, strDevCompanyLine, strDevPhoneLine, strDevEmailLine, strDevMachineLine, strDescriptionLine))

                                        End While
                                    End If
                                Next
                            Catch ex As Exception
                                Debug.Write("CommentSection (History Section) For Next Loop exception: " & ex.Message)

                            Finally

                            End Try
                        End If
                        Dim extraLines As Integer = 0
                        Dim insertLineParam As Integer = endLineParam - 1
                        Dim intTemp As Integer = detailNodes.Count
                        Try
                            For Each node As LanguageElement In detailNodes
                                If node.Name IsNot Nothing Then
                                    If node.[GetType]().IsSubclassOf(GetType(Expression)) Then
                                        ' Only add returns tag if type is not void
                                        If valueLine.Length = 0 Then
                                            Select Case node.Name
                                                Case "AutoSizeChanged", "BackColorChanged", "BackgroundImageChanged"
                                                Case "BackgroundImageLayoutChanged", "BindingContextChanged", "CausesValidationChanged"
                                                Case "ChangeUICues", "Click", "ClientSizeChanged", "ContextMenuChanged"
                                                Case "ContextMenuStripChanged", "ControlAdded", "ControlRemoved", "CursorChanged"
                                                Case "Disposed", "DockChanged", "DoubleClick", "DragDrop", "DragEnter", "DragLeave"
                                                Case "DragOver", "EnabledChanged", "Enter", "FontChanged", "ForeColorChanged"
                                                Case "GiveFeedback", "GotFocus", "HandleCreated", "HandleDestroyed", "HelpRequested"
                                                Case "ImeModeChanged", "Invalidated", "KeyDown", "KeyPress", "KeyUp", "Layout"
                                                Case "Leave", "LocationChanged", "LostFocus", "MarginChanged", "MouseCaptureChanged"
                                                Case "MouseClick", "MouseDoubleClick", "MouseDown", "MouseEnter", "MouseHover"
                                                Case "MouseLeave", "MouseMove", "MouseUp", "MouseWheel", "Move", "Name"
                                                Case "PaddingChanged", "Paint", "ParentChanged", "PreviewKeyDown", "QueryAccessibilityHelp"
                                                Case "QueryContinueDrag", "RegionChanged", "Resize", "RightToLeftChanged", "SizeChanged"
                                                Case "StyleChanged", "SystemColorsChanged", "TabIndexChanged", "TabStopChanged"
                                                Case "TextChanged", "Validated", "Validating", "VisibleChanged", "SelectedIndexChanged"
                                                Case "DateChanged", "DateSelected", "ValueChanged", "CheckedChanged"
                                                Case "AcceptsTabChanged", "HScroll", "VScroll", "MultilineChanged"
                                                Case Else
                                                    ' And we don't already have one
                                                    'returnLine = "<returns>" + ReplaceKnownAbbreviationWords(StringHelper.SplitFunctionNameToWordString(node.Name)) + "</returns>"
                                                    If ParentType = String.Empty Then
                                                        ParentType = "SourceFile"
                                                    End If
                                                    If ParentType <> "SourceFile" Then

                                                        Select Case node.Name.ToLower

                                                            Case "long"
                                                                valueLine = "<seealso cref=" & Chr(34) & "System.Int64" & Chr(34) & "/>"
                                                            Case "double"
                                                                valueLine = "<seealso cref=" & Chr(34) & "System.Double" & Chr(34) & "/>"
                                                            Case "integer"
                                                                valueLine = "<seealso cref=" & Chr(34) & "System.Int32" & Chr(34) & "/>"
                                                            Case "string"
                                                                valueLine = "<seealso cref=" & Chr(34) & "System.String" & Chr(34) & "/>"
                                                            Case "boolean"
                                                                valueLine = "<seealso cref=" & Chr(34) & "System.Boolean" & Chr(34) & "/>"
                                                            Case Else
                                                                valueLine = ReplaceKnownAbbreviationWords(StringHelper.SplitFunctionNameToWordString(node.Name))

                                                        End Select
                                                    End If
                                                    'If Not ParentType = "Struct" AndAlso ParentType <> "Enum" Then
                                                    If Not ParentType = "Struct" AndAlso ParentType <> "Enum" AndAlso ParentType <> "Class" Then
                                                        CurrentValueText = valueLine
                                                        extraLines += 1
                                                        changedParameters = True
                                                    Else
                                                        If CurrentValueText = String.Empty Then
                                                            CurrentValueText = String.Empty

                                                        End If
                                                    End If
                                            End Select

                                        ElseIf valueLine.Length > 0 Then
                                            ' if
                                            ' Remove returnLine
                                            valueLine = String.Empty
                                            extraLines -= 1
                                            changedParameters = True
                                            ' else if
                                        End If
                                    Else
                                        ' if
                                        ' Normal tag, just add it if it does not exist yet.
                                        Dim paramAlreadyExists As Boolean = False
                                        For Each xmlParam As XmlParameter In Parameters
                                            If xmlParam.name = node.Name Then
                                                paramAlreadyExists = True
                                                xmlParam.foundParameter = True
                                                insertLineParam = xmlParam.endLine
                                                Exit For
                                            End If
                                        Next
                                        ' if
                                        ' Does not exist yet? Then add new entry
                                        If paramAlreadyExists = False Then
                                            Dim index As Integer = 0
                                            For index = 0 To Parameters.Count - 1
                                                If Parameters(index).endLine > insertLineParam Then
                                                    Exit For
                                                End If

                                            Next
                                            ' for
                                            'Dim xmlParam As New XmlParameter(node.Name, "<param name=""" + node.Name + """>" + ReplaceKnownAbbreviationWords(StringHelper.SplitFunctionNameToWordString(node.Name)) + "</param>", insertLineParam, True)
                                            Dim xmlParam As New XmlParameter(node.Name, node.Name, insertLineParam, True)
                                            ParametersCounter += 1
                                            Parameters.Insert(index, xmlParam)
                                            extraLines += 1
                                            changedParameters = True
                                            ' if
                                        End If
                                        ' else
                                    End If
                                End If
                            Next
                        Catch ex As Exception
                            Debug.Write("CommentSection (Parameters Section) For Next Loop exception: " & ex.Message)

                        Finally

                        End Try

                        Dim TabbedLayoutDialog As New TabbedLayout(NameSpaceName, document, CommentLineText, Nothing, MethodLineText, MethodType, methodName, CurrentSummaryText, CurrentHistoryText, CurrentDescriptionText, CurrentRemarksText, CurrentReturnsText, CurrentValueText, Parameters, 0, ParentType, XMLHistory, MethodReturnType, document, CurrentExamplesText, XMLSeeAlso, XMLPermissions, XMLException)
                        DocumentingFormCalled = True
                        Dim DialogResult As DialogResult = TabbedLayoutDialog.ShowDialog()
                        If DialogResult = Windows.Forms.DialogResult.Cancel Then
                            DocumentingFormCalled = False
                            TabbedLayoutDialog.Close()
                            Exit Sub
                        End If
                        DocumentingFormCalled = False

                        xmlCommentClosing = tabsText + My.Resources.RemarksXMLBeginTagText + vbCrLf
                        Dim TempRemarksArray() As String = TabbedLayoutDialog.RemarksEditor.Text.Split(Chr(10))
                        Dim RemarksLineCounter As Integer = 1
                        Dim RemarksLineTempItem As String = String.Empty
                        For Each item As String In TempRemarksArray
                            item = item.Replace(Chr(10), String.Empty)
                            item = item.Replace(vbCrLf, String.Empty)
                            item = item.Replace(vbCr, String.Empty)
                            Select Case item.Trim
                                Case String.Empty
                                    Exit Select
                                Case vbLf
                                    Exit Select
                                Case vbCrLf
                                    Exit Select
                                Case Chr(10)
                                    Exit Select
                                Case Else
                                    xmlCommentClosing += tabsText + ParseXMLCommentText(RemarksLineCounter, item) + vbCrLf
                            End Select
                            RemarksLineCounter += 1
                        Next
                        xmlCommentClosing += tabsText + Chr(9) + My.Resources.HistoryParagraphText + vbCrLf
                        xmlCommentClosing += tabsText + "<list type=" + Chr(34) + "table" + Chr(34) + ">" + vbCrLf
                        xmlCommentClosing += tabsText + Chr(9) + "<listheader>" + vbCrLf
                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devName>Developer\Date\Time</devName>" + vbCrLf
                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devCompany>Developer Company</devCompany>" + vbCrLf
                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devPhone>Developer Phone</devPhone>" + vbCrLf
                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devEmail>Developer Email</devEmail>" + vbCrLf
                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devMachine>Developer On</devMachine>" + vbCrLf
                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<description>Description</description>" + vbCrLf
                        xmlCommentClosing += tabsText + Chr(9) + "</listheader>" + vbCrLf
                        Try
                            Dim HistoryRecordCount As Integer = TabbedLayoutDialog.HistoryDataGridView.Rows.Count
                            For Each xmlRow As System.Windows.Forms.DataGridViewRow In TabbedLayoutDialog.HistoryDataGridView.Rows
                                If HistoryRecordCount <= 1 Then
                                    Exit For
                                End If
                                Try
                                    xmlCommentClosing += tabsText + Chr(9) + "<item>" + vbCrLf
                                Catch ex As Exception

                                End Try
                                Try
                                    Dim TempItemCommentText As String = xmlRow.Cells.Item("DataGridViewDevNameColumn").Value.ToString
                                    If Not TempItemCommentText.Contains(vbLf) OrElse Not TempItemCommentText.Contains(vbCrLf) OrElse Not TempItemCommentText.Contains(vbCr) Then
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devName>" + xmlRow.Cells.Item("DataGridViewDevNameColumn").Value.ToString + "</devName>" + vbCrLf
                                    Else
                                        TempItemCommentText = TempItemCommentText.Replace(vbLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCrLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCr, " ")
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devName>" + TempItemCommentText + "</devName>" + vbCrLf
                                    End If
                                Catch ex As Exception
                                    xmlCommentClosing = xmlCommentClosing.Substring(0, xmlCommentClosing.Length - "      ''' 	<devName>".Length)
                                    Exit For
                                End Try
                                Try
                                    Dim TempItemCommentText As String = xmlRow.Cells.Item("DataGridViewDevCompanyColumn").Value.ToString
                                    If Not TempItemCommentText.Contains(vbLf) OrElse Not TempItemCommentText.Contains(vbCrLf) OrElse Not TempItemCommentText.Contains(vbCr) Then
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devCompany>" + xmlRow.Cells.Item("DataGridViewDevCompanyColumn").Value.ToString + "</devCompany>" + vbCrLf
                                    Else
                                        TempItemCommentText = TempItemCommentText.Replace(vbLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCrLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCr, " ")
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devCompany>" + TempItemCommentText + "</devCompany>" + vbCrLf
                                    End If
                                Catch ex As Exception
                                    xmlCommentClosing = xmlCommentClosing.Substring(0, xmlCommentClosing.Length - "      ''' 	<devCompany>".Length)
                                    Exit For
                                End Try
                                Try
                                    Dim TempItemCommentText As String = xmlRow.Cells.Item("DataGridViewDevPhoneColumn").Value.ToString
                                    If Not TempItemCommentText.Contains(vbLf) OrElse Not TempItemCommentText.Contains(vbCrLf) OrElse Not TempItemCommentText.Contains(vbCr) Then
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devPhone>" + xmlRow.Cells.Item("DataGridViewDevPhoneColumn").Value.ToString + "</devPhone>" + vbCrLf
                                    Else
                                        TempItemCommentText = TempItemCommentText.Replace(vbLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCrLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCr, " ")
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devPhone>" + TempItemCommentText + "</devPhone>" + vbCrLf
                                    End If
                                Catch ex As Exception
                                    xmlCommentClosing = xmlCommentClosing.Substring(0, xmlCommentClosing.Length - "      ''' 	<devPhone>".Length)
                                    Exit For
                                End Try
                                Try
                                    Dim TempItemCommentText As String = xmlRow.Cells.Item("DataGridViewDevEmailColumn").Value.ToString
                                    If Not TempItemCommentText.Contains(vbLf) OrElse Not TempItemCommentText.Contains(vbCrLf) OrElse Not TempItemCommentText.Contains(vbCr) Then
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devEmail>" + xmlRow.Cells.Item("DataGridViewDevEmailColumn").Value.ToString + "</devEmail>" + vbCrLf
                                    Else
                                        TempItemCommentText = TempItemCommentText.Replace(vbLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCrLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCr, " ")
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devEmail>" + TempItemCommentText + "</devEmail>" + vbCrLf
                                    End If
                                Catch ex As Exception
                                    xmlCommentClosing = xmlCommentClosing.Substring(0, xmlCommentClosing.Length - "      ''' 	<devEmail>".Length)
                                    Exit For
                                End Try
                                Try
                                    Dim TempItemCommentText As String = xmlRow.Cells.Item("DataGridViewDevMachineColumn").Value.ToString
                                    If Not TempItemCommentText.Contains(vbLf) OrElse Not TempItemCommentText.Contains(vbCrLf) OrElse Not TempItemCommentText.Contains(vbCr) Then
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devMachine>" + xmlRow.Cells.Item("DataGridViewDevMachineColumn").Value.ToString + "</devMachine>" + vbCrLf
                                    Else
                                        TempItemCommentText = TempItemCommentText.Replace(vbLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCrLf, " ")
                                        TempItemCommentText = TempItemCommentText.Replace(vbCr, " ")
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<devMachine>" + TempItemCommentText + "</devMachine>" + vbCrLf
                                    End If
                                Catch ex As Exception
                                    xmlCommentClosing = xmlCommentClosing.Substring(0, xmlCommentClosing.Length - "      ''' 	<devMachine>".Length)
                                    Exit For
                                End Try
                                Try
                                    Dim TempDescriptionCommentText As String = xmlRow.Cells.Item("DataGridViewDescriptionColumn").Value.ToString
                                    If Not TempDescriptionCommentText.Contains(vbLf) OrElse Not TempDescriptionCommentText.Contains(vbCrLf) OrElse Not TempDescriptionCommentText.Contains(vbCr) Then
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<description>" + xmlRow.Cells.Item("DataGridViewDescriptionColumn").Value.ToString + "</description>" + vbCrLf
                                    Else
                                        TempDescriptionCommentText = TempDescriptionCommentText.Replace(vbLf, " ")
                                        TempDescriptionCommentText = TempDescriptionCommentText.Replace(vbCrLf, " ")
                                        TempDescriptionCommentText = TempDescriptionCommentText.Replace(vbCr, " ")
                                        xmlCommentClosing += tabsText + Chr(9) + Chr(9) + "<description>" + TempDescriptionCommentText + "</description>" + vbCrLf
                                    End If
                                Catch ex As Exception
                                    xmlCommentClosing = xmlCommentClosing.Substring(0, xmlCommentClosing.Length - "      ''' 	<description>".Length)
                                    Exit For

                                End Try
                                Try
                                    xmlCommentClosing += tabsText + Chr(9) + "</item>" + vbCrLf
                                Catch ex As Exception

                                End Try
                                HistoryRecordCount -= 1
                            Next
                        Catch ex As Exception

                        End Try

                        xmlCommentClosing += tabsText + "</list>" + vbCrLf
                        xmlCommentClosing += tabsText + "</remarks>" + vbCrLf

                        xmlCommentClosing += tabsText + "<example>" + vbCrLf
                        Dim TempExampleArray() As String = TabbedLayoutDialog.ExamplesEditor.Text.Split(Chr(10))
                        Dim ExampleLineCounter As Integer = 1
                        Dim ExampleLineTempItem As String = String.Empty
                        For Each item As String In TempExampleArray
                            item = item.Replace(Chr(10), String.Empty)
                            item = item.Replace(vbCrLf, String.Empty)
                            item = item.Replace(vbCr, String.Empty)
                            Select Case item.Trim
                                Case String.Empty
                                    Exit Select
                                Case vbLf
                                    Exit Select
                                Case vbCrLf
                                    Exit Select
                                Case Chr(10)
                                    Exit Select
                                Case Else
                                    xmlCommentClosing += tabsText + ParseXMLCommentText(ExampleLineCounter, item) + vbCrLf
                            End Select
                            ExampleLineCounter += 1
                        Next
                        xmlCommentClosing += tabsText + "</example>" + vbCrLf
                        Try
                            For Each xmlRow As System.Windows.Forms.DataGridViewRow In TabbedLayoutDialog.ExceptionsDataGridView.Rows
                                Try
                                    Dim TempCrefCommentText As String = xmlRow.Cells.Item("DataGridViewTextBoxColumnExceptionsCref").Value.ToString
                                    Dim TempDescriptionCommentText As String = xmlRow.Cells.Item("DataGridViewTextBoxColumnExceptionsDescription").Value.ToString
                                    If TempDescriptionCommentText.Contains(Chr(34)) Then
                                        Dim tempArray() As String = TempDescriptionCommentText.Split(Chr(34))
                                        TempDescriptionCommentText = tempArray(0) & Chr(34) & tempArray(1) & Chr(34) & tempArray(2)
                                    End If
                                    xmlCommentClosing += tabsText + "<exception cref=" & Chr(34) & TempCrefCommentText & Chr(34) & ">" & TempDescriptionCommentText & "</exception>" + vbCrLf
                                Catch ex As Exception

                                End Try
                            Next
                        Catch nx As NullReferenceException
                        Catch ex As Exception

                        End Try

                        Try
                            For Each xmlRow As System.Windows.Forms.DataGridViewRow In TabbedLayoutDialog.SeeAlsoDataGridView.Rows
                                Try
                                    Dim TempCrefCommentText As String = xmlRow.Cells.Item("DataGridViewTextBoxColumnSeeAlsoCref").Value.ToString
                                    Dim TempDescriptionCommentText As String = xmlRow.Cells.Item("DataGridViewTextBoxColumnSeeAlsoDescription").Value.ToString
                                    xmlCommentClosing += tabsText + "<seealso cref=" & Chr(34) & TempCrefCommentText & Chr(34) & ">" & TempDescriptionCommentText & "</seealso>" + vbCrLf
                                Catch ex As Exception

                                End Try
                            Next
                        Catch nx As NullReferenceException
                        Catch ex As Exception

                        End Try
                        Try
                            For Each xmlRow As System.Windows.Forms.DataGridViewRow In TabbedLayoutDialog.PermissionDataGridView.Rows
                                Try
                                    Dim TempCrefCommentText As String = xmlRow.Cells.Item("DataGridViewTextBoxColumnPermissionsCref").Value.ToString
                                    Dim TempDescriptionCommentText As String = xmlRow.Cells.Item("DataGridViewTextBoxColumnPermissionsDescription").Value.ToString
                                    xmlCommentClosing += tabsText + "<permission cref=" & Chr(34) & TempCrefCommentText & Chr(34) & ">" & TempDescriptionCommentText & "</permission>" + vbCrLf
                                Catch ex As Exception

                                End Try
                            Next
                        Catch nx As NullReferenceException
                        Catch ex As Exception

                        End Try
                        If xmlCommentClosing.EndsWith(vbCrLf) Then
                            xmlCommentClosing = xmlCommentClosing.Substring(0, xmlCommentClosing.Length - vbCrLf.Length)
                        End If
                        Dim newCommentParams As String = String.Empty
                        Dim newCommentText As String = String.Empty
                        Dim newValueCommentText As String = String.Empty
                        xmlComment = tabsText + My.Resources.SummaryXMLBeginTagText + vbCrLf
                        Dim TempSummaryArray() As String = TabbedLayoutDialog.SummaryEditor.Text.Split(Chr(10))
                        Dim SummaryLineCounter As Integer = 1
                        Dim SummaryLineTempItem As String = String.Empty
                        For Each item As String In TempSummaryArray
                            item = item.Replace(Chr(10), String.Empty)
                            item = item.Replace(vbCrLf, String.Empty)
                            item = item.Replace(vbCr, String.Empty)
                            Select Case item.Trim
                                Case String.Empty
                                    Exit Select
                                Case vbLf
                                    Exit Select
                                Case vbCrLf
                                    Exit Select
                                Case Chr(10)
                                    Exit Select
                                Case Else
                                    xmlComment += tabsText + ParseXMLCommentText(SummaryLineCounter, item) + vbCrLf
                            End Select
                            SummaryLineCounter += 1
                        Next
                        'End If
                        xmlComment += tabsText + My.Resources.SummaryXMLEndTagText + vbCrLf

                        Dim UpdatedValueLine As String = String.Empty
                        If TabbedLayoutDialog.ValueEditor.Text = String.Empty Then
                            If MethodType.Trim = "Property" Then
                                Dim TempValueCommentText As String = TabbedLayoutDialog.ValueEditor.Text
                                newValueCommentText = tabsText + "<value>" + TabbedLayoutDialog.ValueEditor.Text + vbCrLf
                                newValueCommentText += tabsText + "</value>" + vbCrLf
                                newCommentText += xmlComment + newCommentParams + newValueCommentText + xmlCommentClosing + vbCrLf
                            Else
                                newCommentText += xmlComment + newCommentParams + xmlCommentClosing + vbCrLf

                            End If

                        Else
                            If TabbedLayoutDialog.ValueEditor.Text.Length > 0 Then
                                newValueCommentText = tabsText + "<value>" + vbCrLf
                                Dim TempValueArray() As String = TabbedLayoutDialog.ValueEditor.Text.Split(Chr(10))
                                Dim ValueLineCounter As Integer = 1
                                Dim ValueLinetempItem As String = String.Empty
                                For Each item As String In TempValueArray
                                    item = item.Replace(Chr(10), String.Empty)
                                    item = item.Replace(vbCrLf, String.Empty)
                                    item = item.Replace(vbCr, String.Empty)
                                    Select Case item.Trim
                                        Case String.Empty
                                            Exit Select
                                        Case vbLf
                                            Exit Select
                                        Case vbCrLf
                                            Exit Select
                                        Case Chr(10)
                                            Exit Select
                                        Case Else
                                            newValueCommentText += tabsText + ParseXMLCommentText(ValueLineCounter, item) + vbCrLf
                                    End Select
                                    ValueLineCounter += 1
                                Next
                                newValueCommentText += tabsText + "</value>" + vbCrLf
                                newCommentText += xmlComment + newCommentParams + newValueCommentText + xmlCommentClosing + vbCrLf
                            Else
                                newCommentText += xmlComment + newCommentParams + xmlCommentClosing + vbCrLf

                            End If
                        End If
                        If XmlCommentLines IsNot Nothing Then
                            If Not XmlCommentLines.Length - 1 = 0 Then

                                startLineParam += 2
                                endLineParam = startLineParam - (XmlCommentLines.Length - 1)
                                If isAttributeText = True Then
                                    document.DeleteText(startLineParam - 1, 1, endLineParam - 1, 1)
                                Else
                                    document.DeleteText(startLineParam, 1, endLineParam, 1)

                                End If

                                document.Selection.Select(endLineParam, endLineParam)
                                CurrentTextLine = document.Selection.Text
                                newCommentText = vbCrLf & newCommentText
                                If newCommentText.EndsWith(vbCrLf) Then
                                    newCommentText = newCommentText.Substring(0, newCommentText.Length - vbCrLf.Length)
                                End If
                                If isAttributeText = True Then
                                    document.SetText(endLineParam - 2, 1, endLineParam - 2, 1, newCommentText)
                                Else
                                    document.SetText(endLineParam - 1, 1, endLineParam - 1, 1, newCommentText)
                                End If
                                CommentLineText = ""
                                CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 1, 0, CodeRush.Source.Active, 1)
                                CodeRush.Outline.Toggle()
                                bnlDirectives = False
                            Else
                                If IsRegion = True Then
                                    If Not IsXMLCommentExist = True Then
                                        remLine += 1
                                    End If
                                End If
                                document.Selection.Select(remLine, remLine)
                                CurrentTextLine = document.Selection.Text
                                If Not CurrentTextLine = String.Empty Then
                                    remLine -= 1
                                End If
                                Dim intStartLine As Integer = remLine
                                Dim intEndLine As Integer = remLine
                                newCommentText = vbCrLf & newCommentText
                                If newCommentText.EndsWith(vbCrLf) Then
                                    newCommentText = newCommentText.Substring(0, newCommentText.Length - vbCrLf.Length)
                                End If
                                If isAttributeText = True Then
                                    document.SetText(intStartLine - 1, 1, intEndLine - 1, 1, newCommentText)
                                Else
                                    document.SetText(intStartLine, 1, intEndLine, 1, newCommentText)
                                End If
                                CommentLineText = ""
                                CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 1, 0, CodeRush.Source.Active, 1)
                                CodeRush.Outline.Toggle()

                                bnlDirectives = False
                            End If
                        Else
                            If IsRegion = True Then
                                If Not IsXMLCommentExist = True Then
                                    remLine += 1
                                End If
                            End If
                            document.Selection.Select(remLine, remLine)
                            CurrentTextLine = document.Selection.Text
                            If Not CurrentTextLine = String.Empty Then
                                remLine -= 1
                            End If
                            Dim intStartLine As Integer = remLine
                            Dim intEndLine As Integer = remLine
                            newCommentText = vbCrLf & newCommentText
                            If newCommentText.EndsWith(vbCrLf) Then
                                newCommentText = newCommentText.Substring(0, newCommentText.Length - vbCrLf.Length)
                            End If
                            If isAttributeText = True Then
                                document.SetText(intStartLine - 1, 1, intEndLine - 1, 1, newCommentText)
                            Else
                                document.SetText(intStartLine, 1, intEndLine, 1, newCommentText)
                            End If
                            CommentLineText = ""

                            bnlDirectives = False
                        End If
                        ' Add number of new lines
                        remLine += extraLines
                        DocumentingFormCalled = False
                        TabbedLayoutDialog.Close()
                        CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 1, 0, CodeRush.Source.Active, 1)
                        CodeRush.Outline.Toggle()

                    End If
                Case Else
                    MessageBox.Show("elementType = " & elementType, "Error finding elementType")
                    Exit Sub
            End Select
        End Sub
#End Region

#Region "Enums"

        ''' <summary>Enum [ActiveSectionCommentMode].
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:24:17 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Enum ActiveSectionCommentMode
            CursorAtEndOfSection
            CursorSomewhereInTheSection
        End Enum
#End Region

#Region "Methods"
        ''' <summary>The Sub Check comment and convert to xml
        ''' </summary>
        ''' <param name="lines">Parameter lines <seealso cref =" system. array" /> As System. string ()</param>
        ''' <param name="activeSection">Parameter activeSection Language element</param>
        ''' <param name="rememberedSectionDetailNodes">Parameter rememberedSectionDetailNodes Node list</param>
        ''' <param name="rememberedIsConstructor">Parameter rememberedIsConstructor As <seealso cref= "System.Boolean"/></param>
        ''' <param name="missingXmlComments">Parameter missingXmlComments As <seealso cref= "System.Array"/></param>
        ''' <param name="document">Parameter document Text document</param>
        ''' <param name="sectionStartLine">Parameter sectionStartLine Integer</param>
        ''' <param name="remLine">Parameter remLine Integer</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:22:26 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub CheckCommentAndConvertToXml(ByVal lines As String(), ByVal activeSection As LanguageElement, ByVal rememberedSectionDetailNodes As NodeList, ByVal rememberedIsConstructor As Boolean, ByVal missingXmlComments As ArrayList, ByVal document As TextDocument, _
         ByVal sectionStartLine As Integer, ByRef remLine As Integer)
            Try
                ' Update 2005-12-28: Moved this check inside this method to
                ' also check all children. Never generate comments inside of methods.
                If activeSection.ElementType <> LanguageElementType.[Namespace] AndAlso activeSection.ElementType <> LanguageElementType.[Class] AndAlso activeSection.ElementType <> LanguageElementType.Method AndAlso activeSection.ElementType <> LanguageElementType.[Property] AndAlso activeSection.ElementType <> LanguageElementType.Struct AndAlso activeSection.ElementType <> LanguageElementType.[Enum] Then
                    ' Update 2005-10-04: Added support for structs and enums
                    ' Skip it if element type is not supported here.
                    Return
                End If
                ' if
                ' The parser does not work here anymore because we changed
                ' so much lines, so we check and modify the text lines directly!

                ' Check if that comment is already xml style
                Dim checkLineNum As Integer = sectionStartLine - 2
                Dim oldRemLine As Integer = remLine
                Dim linesAddedBeforeThisMethod As Integer = remLine - oldRemLine
                StrParentType = activeSection.Parent.ElementType.ToString

                'doesn't work: CodeRushHelper.IsConstructor(activeSection),
                'doesn't work: activeSection.DetailNodes,
                CommentSection(checkLineNum, lines, remLine, CommentLineText, 0, activeSection.PathSegment, GenerateXmlOnlyForPublic = False OrElse ((activeSection.ElementType = LanguageElementType.[Class] OrElse activeSection.ElementType = LanguageElementType.Struct OrElse activeSection.ElementType = LanguageElementType.Method OrElse activeSection.ElementType = LanguageElementType.[Property]) AndAlso activeSection.[GetType]().IsSubclassOf(GetType(AccessSpecifiedElement)) AndAlso (DirectCast(activeSection, AccessSpecifiedElement).Visibility = MemberVisibility.[Public] OrElse DirectCast(activeSection, AccessSpecifiedElement).Visibility = MemberVisibility.Internal)), _
                 rememberedIsConstructor, activeSection.ElementType, rememberedSectionDetailNodes, document, StrParentType, String.Empty, False)

                ' Do missing xml comments for child elements (if there are any)
                If missingXmlComments.Count > 0 Then
                    ' Check lines from sectionStartLine to remLine
                    ' and search for methods, properties and variables
                    ' we remembered have missing xml comments.
                    Dim lineNum As Integer = sectionStartLine
                    While (lineNum < remLine OrElse remLine < sectionStartLine) AndAlso lineNum < lines.Length AndAlso missingXmlComments.Count > 0
                        Dim line As String = lines(lineNum).Trim()
                        ' Update: Line must not be empty or start with a directive.
                        If line.Length > 0 AndAlso line.StartsWith(My.Resources.PoundSignSymbolText) = False AndAlso (GenerateXmlOnlyForPublic = False OrElse (line.IndexOf(My.Resources.publicText) >= 0 OrElse line.IndexOf(My.Resources.privateText) >= 0)) Then
                            Dim lineWords As String() = line.Split(New Char() {" "c, ";"c, ","c, "."c, Chr(9), "("c, _
                             ")"c, "["c, "]"c, "{"c})
                            ' Search for missingXmlComments name, obviously this is
                            ' not 100% safe and not very clean just to search by the
                            ' method name, but since the search is done in the same
                            ' order everything should work just fine :)
                            For Each method As MissingXmlComment In missingXmlComments
                                Dim found As Boolean = False
                                For Each word As String In lineWords
                                    If word = method.name AndAlso lineNum >= method.minimumLine + linesAddedBeforeThisMethod Then
                                        'old: if (line.IndexOf(" "+method.name) > 0 &&
                                        ' And we must have reached the minimum line,
                                        ' else searching would make no sense (don't replace the
                                        ' wrong stuff).
                                        ' Update 2006-08-06: Also use the number of changed lines
                                        ' in this calculation, else we end up way to high!
                                        missingXmlComments.Remove(method)
                                        CommentSection(lineNum - 1, lines, remLine, CommentLineText, remLine - oldRemLine, method.name, True, _
                                         method.isConstructor, method.elementType, method.detailNodes, document, StrParentType, String.Empty, False)
                                        found = True
                                        Exit For
                                    End If
                                Next
                                ' foreach if (line.IndexOf)
                                If found Then
                                    Exit For
                                End If
                                ' foreach
                            Next
                            ' if (line.IndexOf)
                        End If
                        lineNum += 1
                        ' for (lineNum)
                    End While
                    ' if (missingXmlComments.Count)
                End If
            Catch excep As Exception
                ' try
                '	#If DEBUG Then
                '	DevExpress.CodeRush.Diagnostics.Menus.Log.Write("Failed to check for comment to convert to xml: " + excep.ToString())
                'Catch
                '	' catch (excep)
                '	#Else
            End Try
            ' catch
        End Sub

        ''' <summary>
        ''' Type Function Has attribute
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="document">Parameter document Text document</param>
        ''' <param name="remLineValue">Parameter remLineValue Integer</param>
        ''' <param name="activeSection">Parameter activeSection Language element</param>
        ''' <param name="CurrentOffsetValue">Parameter CurrentOffsetValue Integer</param>
        ''' <returns>
        ''' <seealso cref="System.Boolean"/> As System.Boolean <c> True</c> if success, <c>False</c> otherwise.
        ''' </returns>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:29:55 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Function HasAttribute(ByVal document As TextDocument, ByVal remLineValue As Integer, ByVal activeSection As LanguageElement, ByVal CurrentOffsetValue As Integer) As Boolean
            'Dim CurrentElementType As LanguageElementType
            document.Selection.MoveToLineAndOffset(remLineValue - 1, CurrentOffsetValue)
            activeSection = CodeRush.Source.Active
            Try
                CurrentTextLine = document.GetCodeOnLine(remLineValue - 1)
                CurrentElementType = activeSection.ElementType
                If CurrentElementType = LanguageElementType.Attribute OrElse CurrentElementType = LanguageElementType.ElementReferenceExpression Then
                    Return True
                Else
                    Return False
                End If
            Catch ex As Exception
                Return False
            Finally
                CurrentTextLine = document.GetCodeOnLine(remLineValue)
                document.Selection.MoveToLineAndOffset(remLineValue, CurrentOffsetValue)
                activeSection = CodeRush.Source.Active

            End Try
        End Function

        ''' <summary>
        ''' Type Function Move selection to line and offset
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="document">Parameter document Text document</param>
        ''' <param name="remLineValue">Parameter remLineValue Integer</param>
        ''' <param name="remLineValuePlus">Parameter remLineValuePlus Integer</param>
        ''' <param name="remLineValueMinus">Parameter remLineValueMinus Integer</param>
        ''' <param name="activeSection">Parameter activeSection Language element</param>
        ''' <param name="CurrentOffsetValue">Parameter CurrentOffsetValue Integer</param>
        ''' <returns>
        ''' <seealso cref="System.String"/> As System.String
        ''' </returns>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:30:01 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Function MoveSelectionToLineAndOffset(ByVal document As TextDocument, ByVal remLineValue As Integer, ByVal remLineValuePlus As Integer, ByVal remLineValueMinus As Integer, ByVal activeSection As LanguageElement, ByVal CurrentOffsetValue As Integer) As String
            Try
                If remLineValuePlus <> 0 Then
                    document.Selection.MoveToLineAndOffset(remLineValue + remLineValuePlus, CurrentOffsetValue)
                    activeSection = CodeRush.Source.Active
                    GetActiveSection(activeSection)
                    Return document.GetCodeOnLine(remLineValue + remLineValuePlus)
                ElseIf remLineValueMinus <> 0 Then
                    document.Selection.MoveToLineAndOffset(remLineValue - remLineValueMinus, CurrentOffsetValue)
                    activeSection = CodeRush.Source.Active
                    GetActiveSection(activeSection)

                    Return document.GetCodeOnLine(remLineValue + remLineValuePlus)
                Else
                    document.Selection.MoveToLineAndOffset(remLineValue, CurrentOffsetValue)
                    activeSection = CodeRush.Source.Active
                    GetActiveSection(activeSection)

                    Return document.GetCodeOnLine(remLineValue)
                End If
            Catch ex As Exception
                Return String.Empty
            End Try

        End Function

        ''' <summary>
        ''' Type Function Set current offset
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="IsNamespace">Parameter IsNamespace As <seealso cref= "System.Boolean"/></param>
        ''' <param name="CurrentTabSize">Parameter CurrentTabSize Integer</param>
        ''' <returns>
        ''' <seealso cref="System.Int32"/> As System.Int32
        ''' </returns>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:30:08 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Function SetCurrentOffset(ByVal IsNamespace As Boolean, ByVal CurrentTabSize As Integer) As Integer
            If IsNamespace = True Then
                Return (CurrentTabSize * 2) + 5
            Else
                Return (CurrentTabSize * 2) + 1
            End If

        End Function

        ''' <summary>
        ''' Type Sub Get active section
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="activeSection">Parameter activeSection Language element</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:30:14 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub GetActiveSection(ByVal activeSection As LanguageElement)
            Try
                StrParentType = activeSection.Parent.ElementType.ToString
                ParentElementType = activeSection.Parent.ElementType

            Catch ex As Exception
                StrParentType = LanguageElementType.SourceFile.ToString
                ParentElementType = LanguageElementType.SourceFile
            End Try
            Try
                CurrentElementType = activeSection.ElementType
            Catch ex As Exception

            End Try

        End Sub

        ''' <summary>The Function Parse XML comment text
        ''' </summary>
        ''' <param name="Counter">Parameter Counter Integer</param>
        ''' <param name="strLine">Parameter strLine As <seealso cref= "System.String"/></param>
        ''' <returns><seealso cref="System.String"/> As System.String
        ''' </returns>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:23:00 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Function ParseXMLCommentText(ByVal Counter As Integer, ByVal strLine As String) As String
            Dim tempItem As String = String.Empty
            If Not strLine = vbLf Then
                If Counter = 1 Then
                    If strLine.EndsWith(vbLf) Then
                        tempItem = strLine.Substring(0, strLine.Length - 1)
                    ElseIf strLine.EndsWith(Chr(10)) Then
                        tempItem = strLine.Substring(0, strLine.Length - 1)
                    ElseIf strLine.Contains(Chr(10)) Then
                        tempItem = strLine.Substring(0, strLine.IndexOf(Chr(10)))
                    ElseIf strLine.Contains(vbLf) Then
                        tempItem = strLine.Substring(0, strLine.IndexOf(vbLf))
                    ElseIf strLine.Contains(vbCrLf) Then
                        tempItem = strLine.Substring(0, strLine.IndexOf(vbCrLf))
                    ElseIf strLine.Contains(vbCr) Then
                        tempItem = strLine.Substring(0, strLine.IndexOf(vbCr))
                    Else
                        tempItem = strLine
                    End If
                Else
                    If strLine.StartsWith(vbLf) Then
                        If strLine.StartsWith(vbLf & My.Resources.ParaXMLBeginTagText) AndAlso strLine.EndsWith(My.Resources.ParaXMLEndTagText) Then
                            tempItem = strLine.Substring(1, strLine.Length - 1)
                        Else
                            tempItem = My.Resources.ParaXMLBeginTagText & strLine.Substring(1, strLine.Length - 1) & My.Resources.ParaXMLEndTagText
                        End If
                    Else
                        If strLine.StartsWith(My.Resources.ParaXMLBeginTagText) AndAlso strLine.EndsWith(My.Resources.ParaXMLEndTagText) Then
                            tempItem = strLine
                        Else
                            tempItem = My.Resources.ParaXMLBeginTagText & strLine & My.Resources.ParaXMLEndTagText
                        End If
                    End If
                End If
                Return tempItem
            Else
                Return String.Empty
            End If

        End Function

        ''' <summary>The Function Parse method name
        ''' </summary>
        ''' <param name="strMethod">Parameter strMethod As <seealso cref= "System.String"/></param>
        ''' <param name="strMethodName">Parameter strMethodName As <seealso cref= "System.String"/></param>
        ''' <returns>Array list
        ''' </returns>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:23:11 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Function ParseMethodName(ByVal strMethod As String, ByVal strMethodName As String) As ArrayList
            Dim lResult As New ArrayList
            If String.IsNullOrEmpty(strMethod) Then
                Return lResult
            End If
            Dim ReturnsText As String = String.Empty
            If strMethod.EndsWith("()") Then
                Dim AsTextLocation As Integer = strMethod.ToUpper.LastIndexOf("AS")
                Dim LastPrenLocation As Integer = strMethod.LastIndexOf(")")
                If Not AsTextLocation = -1 Then
                    ReturnsText = strMethod.Substring(AsTextLocation - 2, strMethod.Length - (AsTextLocation - 2))
                    strMethod = strMethod.Substring(0, strMethod.Length - (LastPrenLocation - AsTextLocation + 2))
                Else
                    ReturnsText = String.Empty

                End If

            Else
                If strMethod.ToUpper.Contains(") AS ") Then
                    Dim AsTextLocation As Integer = strMethod.ToUpper.LastIndexOf("AS")
                    Dim LastPrenLocation As Integer = strMethod.LastIndexOf(")")
                    If Not AsTextLocation = -1 Then
                        ReturnsText = strMethod.Substring(AsTextLocation - 2, strMethod.Length - (AsTextLocation - 2))
                        strMethod = strMethod.Substring(0, strMethod.Length - (LastPrenLocation - AsTextLocation + 2))
                    Else
                        ReturnsText = String.Empty

                    End If

                End If
            End If
            Dim Parms() As String = Nothing
            Dim TempArray() As String = strMethod.Split(")")
            Dim TempArrayUBounds As Integer = TempArray.GetUpperBound(0)
            Dim MethodReturnHandles As String = String.Empty
            Dim MethodReturnHandlesArray() As String = Nothing
            Dim MethodReturnHandlesArrayUBound As Integer = 0
            Dim FirstPrens As Integer = strMethod.IndexOf("(") + 1
            Dim LastPrens As Integer = strMethod.LastIndexOf(")")
            Try
                Parms = strMethod.Substring(FirstPrens, LastPrens - FirstPrens).Split(",")
            Catch ex As Exception

            End Try
            Try
                If Parms(TempArrayUBounds).Contains(")") Then
                    MethodReturnHandlesArray = Parms(TempArrayUBounds).Split(")")
                End If
            Catch ex As Exception

            End Try

            If strMethod.StartsWith("Public") Then
                Visibility = "Public"
                If strMethod.StartsWith("Public Function") Then
                    MethodType = "Function"
                ElseIf strMethod.StartsWith("Public Sub") Then
                    MethodType = "Sub"
                ElseIf strMethod.StartsWith("Public Delegate Sub") Then
                    MethodType = "Sub"
                End If
            ElseIf strMethod.StartsWith("Private") Then
                Visibility = "Private"
                If strMethod.StartsWith("Private Function") Then
                    MethodType = "Function"
                ElseIf strMethod.StartsWith("Private Sub") Then
                    MethodType = "Sub"
                ElseIf strMethod.StartsWith("Private Delegate Sub") Then
                    MethodType = "Sub"
                End If
            ElseIf strMethod.StartsWith("Protected") Then
                Visibility = "Protected"
                If strMethod.StartsWith("Protected Function") Then
                    MethodType = "Function"
                ElseIf strMethod.StartsWith("Protected Sub") Then
                    MethodType = "Sub"
                ElseIf strMethod.StartsWith("Protected Delegate Sub") Then
                    MethodType = "Sub"
                End If
            ElseIf strMethod.StartsWith("Protected Friend") Then
                Visibility = "Protected Friend"
                If strMethod.StartsWith("Protected Friend Function") Then
                    MethodType = "Function"
                ElseIf strMethod.StartsWith("Protected Friend Sub") Then
                    MethodType = "Sub"
                ElseIf strMethod.StartsWith("Protected Friend Delegate Sub") Then
                    MethodType = "Sub"
                End If
            ElseIf strMethod.StartsWith("Friend") Then
                Visibility = "Friend"
                If strMethod.StartsWith("Friend Function") Then
                    MethodType = "Function"
                ElseIf strMethod.StartsWith("Friend Sub") Then
                    MethodType = "Sub"
                ElseIf strMethod.StartsWith("Friend Delegate Sub") Then
                    MethodType = "Sub"
                End If
            ElseIf strMethod.StartsWith("Function") Then
                Visibility = "Private"
                MethodType = "Function"
            ElseIf strMethod.StartsWith("Sub") Then
                Visibility = "Private"
                MethodType = "Sub"
            ElseIf strMethod.StartsWith("Delegate") Then
                Visibility = "Private"
                MethodType = "Sub"
            End If
            Try
                If Not MethodReturnHandlesArray Is Nothing Then
                    MethodReturnHandlesArrayUBound = MethodReturnHandlesArray.GetUpperBound(0)
                    MethodReturnHandles = MethodReturnHandlesArray(MethodReturnHandlesArrayUBound)
                Else
                    If TempArray(TempArrayUBounds) = String.Empty Then
                        If Not strMethod.EndsWith(")") Then
                            MethodReturnHandles = TempArray(TempArrayUBounds - 1)
                            If MethodReturnHandles.Contains("(") Then
                                MethodReturnHandles = String.Empty
                            End If
                        Else
                            MethodReturnHandles = String.Empty
                        End If
                    Else
                        MethodReturnHandles = TempArray(TempArrayUBounds)

                    End If
                End If
            Catch ex As Exception

            End Try
            Try
                lResult.Add(Visibility & " " & MethodType & " " & strMethodName & "( _")
                Dim ParmsUBounds As Integer = Parms.GetUpperBound(0)
                Dim Counter As Integer = 0
                For Each item As String In Parms
                    If Not item.Contains("()") Then
                        If item.Contains(")") Then
                            item = item.Substring(0, item.Length - (item.Length - item.IndexOf(")")))
                        End If

                    End If
                    If ParmsUBounds = Counter Then
                        lResult.Add("    " & item.Trim & " _")

                    Else
                        lResult.Add("    " & item.Trim & ", _")
                    End If
                    Counter += 1
                Next
                If Not MethodReturnHandles = String.Empty Then
                    If MethodReturnHandles.EndsWith("(") Then
                        MethodReturnHandles += ")"
                    End If
                    lResult.Add(") " & MethodReturnHandles.Trim)
                Else
                    If Not ReturnsText = String.Empty Then
                        lResult.Add(ReturnsText)
                    Else
                        lResult.Add(")")
                    End If
                End If
            Catch ex As Exception
                Return lResult

            End Try

            Return lResult
        End Function

        ''' <summary>The Function Replace known abbreviation words
        ''' </summary>
        ''' <param name="text">Parameter text As <seealso cref= "System.String"/></param>
        ''' <returns><seealso cref="System.String"/> As System.String
        ''' </returns>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:23:47 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Function ReplaceKnownAbbreviationWords(ByVal text As String) As String
            Dim words As String() = text.Split(New Char() {" "c})
            Dim firstWord As Boolean = True
            For Each word As String In words
                For num As Integer = 0 To CType(KnownAbbreviations.Length / 2 - 1, Integer)
                    If StringHelper.Compare(word, KnownAbbreviations(num * 2)) Then
                        ' Replace abbrevation with full word
                        Dim fullName As String = KnownAbbreviations(num * 2 + 1)
                        If firstWord Then
                            fullName = StringHelper.ToUpper(fullName(0)) + fullName.Substring(1)
                            ' Make first letter big
                        End If
                        text = text.Replace(word, fullName)
                    End If
                Next
                ' for if
                firstWord = False
            Next
            ' foreach
            ' While we are at it, remove all " _ " strings!
            text = text.Replace(" _ ", " ")

            ' Return result
            Return text
        End Function

        ''' <summary>The Sub Commenter plug in   key pressed
        ''' </summary>
        ''' <param name="ea">Parameter ea Key pressed event arguments</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:23:55 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub CommenterPlugIn_KeyPressed(ByVal ea As KeyPressedEventArgs)
            If Enabled = False Then
                Return
            End If
            LoadOptions()

            IsNamespace = False
            MinusOne = False
            'Dim CurrentElementType As LanguageElementType
            'Dim ParentElementType As LanguageElementType
            Dim isSummaryCommentLine As Boolean = False
            Dim CurrentAttributeText As String = String.Empty
            Dim CurrentTabSize As Integer = 0
            Dim currentTriggerKey As Integer = 0
            Dim ElementTypeFound As Boolean = False
            Dim BlankLineCounter As Integer = 0
            Dim sectionStartLine As Integer = 0
            Dim sectionEndLine As Integer = 0
            InLineCommentCounter = 0
            IsXMLCommentExist = False
            HasCommentLine = False
            NameSpaceName = String.Empty
            IsAttributeText = False
            If VBCodeCommenter.CommenterOptionsPage.CommentHotKey.Contains(My.Resources.SingleQuoteText) Then
                currentTriggerKey = 222
            ElseIf VBCodeCommenter.CommenterOptionsPage.CommentHotKey.Contains(My.Resources.AtSignText) Then
                currentTriggerKey = 50
            ElseIf VBCodeCommenter.CommenterOptionsPage.CommentHotKey.Contains(My.Resources.AsteriskText) Then
                currentTriggerKey = 56
            ElseIf VBCodeCommenter.CommenterOptionsPage.CommentHotKey.Contains(My.Resources.PercentText) Then
                currentTriggerKey = 53
            ElseIf VBCodeCommenter.CommenterOptionsPage.CommentHotKey.Contains(My.Resources.PoundSignText) Then
                currentTriggerKey = 51
            ElseIf VBCodeCommenter.CommenterOptionsPage.CommentHotKey.Contains(My.Resources.ExclamationPointText) Then
                currentTriggerKey = 49
            ElseIf VBCodeCommenter.CommenterOptionsPage.CommentHotKey.Contains(My.Resources.QuestionMarkText) Then
                currentTriggerKey = 191
            End If
            Select Case ea.VirtualKey
                'Case 222

                Case currentTriggerKey
                    If Not ea.CtrlKeyDown = VBCodeCommenter.CommenterOptionsPage.CommentHotKeyWithCtrlKey Then
                        Exit Sub
                    ElseIf Not ea.AltKeyDown = VBCodeCommenter.CommenterOptionsPage.CommentHotKeyWithAltKey Then
                        Exit Sub
                    ElseIf Not ea.ShiftKeyDown = VBCodeCommenter.CommenterOptionsPage.CommentHotKeyWithShiftKey Then
                        Exit Sub
                    End If
                    If DocumentingFormCalled = True Then
                        Exit Sub
                    Else
                        DocumentingFormCalled = False
                    End If

                    Dim remLine As Integer = 0
                    Dim remOffset As Integer = 0
                    Dim document As TextDocument = GetAndParseTextDocument()
                    ' Can't continue if this is not a supported document
                    If document Is Nothing Then
                        Return
                    End If
                    CurrentTabSize = document.TabSize
                    'Dim activeSection As LanguageElement
                    StrParentType = String.Empty
                    StrCurrentElementType = String.Empty
                    Dim tempOffSet As Integer = 0
                    'If ea.NoShiftKeys = True Then
                    remLine = document.Selection.ActivePoint.Line
                    remOffset = document.Selection.ActivePoint.LineCharOffset
                    ActiveSection = CodeRush.Source.Active

                    Try
                        StrParentType = ActiveSection.Parent.ElementType.ToString
                        ParentElementType = ActiveSection.Parent.ElementType
                        CurrentElementType = ActiveSection.ElementType
                    Catch nx As NullReferenceException
                        DocumentingFormCalled = False
                        StrParentType = LanguageElementType.SourceFile.ToString
                        ParentElementType = LanguageElementType.SourceFile
                        CurrentElementType = ActiveSection.ElementType
                    Catch ex As Exception
                        DocumentingFormCalled = False

                        Exit Sub
                    End Try
                    Try
                        StrCurrentElementType = ActiveSection.ElementType.ToString
                    Catch nx As NullReferenceException
                        DocumentingFormCalled = False

                    Catch ex As Exception
                        DocumentingFormCalled = False

                        Exit Sub
                    End Try

                    Select Case ParentElementType
                        Case LanguageElementType.Method
                            If CurrentElementType = LanguageElementType.Variable _
                            OrElse CurrentElementType = LanguageElementType.InitializedVariable Then
                                DocumentingFormCalled = False
                                Exit Sub
                            ElseIf ActiveSection.InsideMethod = True Then
                                ea.EatKey()
                            End If
                        Case LanguageElementType.Namespace
                            ea.EatKey()
                        Case LanguageElementType.Class
                            ea.EatKey()
                        Case LanguageElementType.Module
                            ea.EatKey()
                        Case LanguageElementType.Const
                            ea.EatKey()
                        Case LanguageElementType.Delegate
                            ea.EatKey()
                        Case LanguageElementType.Property
                            ea.EatKey()
                        Case LanguageElementType.Enum
                            ea.EatKey()
                        Case LanguageElementType.EnumElement
                            ea.EatKey()
                        Case LanguageElementType.Event
                            ea.EatKey()
                        Case LanguageElementType.Struct
                            ea.EatKey()
                        Case LanguageElementType.XmlDocText
                            ea.EatKey()
                        Case LanguageElementType.XmlDocElement
                            ea.EatKey()
                        Case LanguageElementType.XmlDocComment
                            ea.EatKey()
                        Case LanguageElementType.Interface
                            ea.EatKey()
                        Case LanguageElementType.SourceFile
                            If CurrentElementType = LanguageElementType.SourceFile _
                            OrElse CurrentElementType = LanguageElementType.Namespace _
                            OrElse CurrentElementType = LanguageElementType.Class _
                            OrElse CurrentElementType = LanguageElementType.Module _
                            OrElse CurrentElementType = LanguageElementType.Enum _
                            OrElse CurrentElementType = LanguageElementType.Struct _
                            OrElse CurrentElementType = LanguageElementType.Interface _
                            OrElse CurrentElementType = LanguageElementType.Comment _
                            OrElse CurrentElementType = LanguageElementType.XmlDocComment _
                            OrElse CurrentElementType = LanguageElementType.XmlDocElement _
                            OrElse CurrentElementType = LanguageElementType.XmlDocText Then
                                ea.EatKey()
                            Else
                                DocumentingFormCalled = False

                                Exit Sub
                            End If
                        Case Else
                            Select Case CurrentElementType
                                Case LanguageElementType.SourceFile
                                    ea.EatKey()
                                Case Else
                                    DocumentingFormCalled = False

                                    Exit Sub
                            End Select
                    End Select

                    Dim tempLines As String() = Nothing
                    tempLines = StringHelper.SplitMultiLineText(document.Text)
                    If tempLines Is Nothing OrElse tempLines.Length = 0 OrElse document Is Nothing Then
                        Exit Sub
                    End If
                    IsNamespace = False
                    IsXMLCommentExist = False
                    NameSpaceName = String.Empty
                    Try
                        NameSpaceName = ActiveSection.GetNamespace.Name
                        IsNamespace = True
                    Catch ex As Exception
                        NameSpaceName = String.Empty
                        IsNamespace = False
                    End Try
                    tempLines = Nothing
                    Try
                        StrParentType = ActiveSection.Parent.ElementType.ToString
                        CurrentElementType = ActiveSection.ElementType
                        ParentElementType = ActiveSection.Parent.ElementType

                    Catch ex As Exception
                        StrParentType = LanguageElementType.SourceFile.ToString
                    End Try
                    CurrentTextLine = document.GetCodeOnLine(remLine)
                    CommentLineText = String.Empty
                    Do While ElementTypeFound = False
                        Select Case CurrentElementType
                            Case LanguageElementType.Class, LanguageElementType.Module
                                CurrentTextLine = document.GetCodeOnLine(remLine)
                                If CurrentTextLine = String.Empty Then
                                    If BlankLineCounter = 1 Then
                                        Exit Sub
                                    End If
                                    BlankLineCounter += 1
                                    ElementTypeFound = False
                                ElseIf CurrentTextLine.Contains(My.Resources.SummaryXMLBeginTagText) Then
                                    remLine += 1
                                    CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 0, 0, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                    ElementTypeFound = False
                                    Continue Do

                                ElseIf ParentElementType = LanguageElementType.Namespace Then
                                    sectionStartLine = ActiveSection.StartLine
                                    sectionEndLine = ActiveSection.EndLine
                                    If Not remLine = sectionStartLine Then
                                        remLine = sectionStartLine
                                        If IsNamespace = True Then
                                            CurrentOffset = (CurrentTabSize) + 1
                                        Else
                                            CurrentOffset = 1
                                        End If
                                        CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 0, 0, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                        ElementTypeFound = True
                                        Exit Do
                                    Else
                                        sectionStartLine = ActiveSection.StartLine
                                        sectionEndLine = ActiveSection.EndLine
                                        CurrentTextLine = document.GetCodeOnLine(remLine)
                                        ElementTypeFound = True
                                        Exit Do


                                    End If

                                ElseIf ParentElementType = LanguageElementType.SourceFile Then
                                    sectionStartLine = ActiveSection.StartLine
                                    sectionEndLine = ActiveSection.EndLine
                                    If Not remLine = sectionStartLine Then
                                        If HasCommentLine = True Then
                                            ElementTypeFound = False
                                        Else
                                            remLine = sectionStartLine
                                            If IsNamespace = True Then
                                                CurrentOffset = (CurrentTabSize) + 1
                                            Else
                                                CurrentOffset = 1
                                            End If
                                            CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 0, 0, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                            ElementTypeFound = True
                                            Exit Do
                                        End If
                                    Else
                                        sectionStartLine = ActiveSection.StartLine
                                        sectionEndLine = ActiveSection.EndLine
                                        CurrentTextLine = document.GetCodeOnLine(remLine)
                                        ElementTypeFound = True
                                        Exit Do

                                    End If
                                Else
                                    sectionStartLine = ActiveSection.StartLine
                                    sectionEndLine = ActiveSection.EndLine
                                    If Not remLine = sectionStartLine Then
                                        remLine = sectionStartLine
                                        CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 0, 0, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                        ElementTypeFound = True
                                        Exit Do
                                    Else
                                        sectionStartLine = ActiveSection.StartLine
                                        sectionEndLine = ActiveSection.EndLine
                                        CurrentTextLine = document.GetCodeOnLine(remLine)
                                        ElementTypeFound = True
                                        Exit Do

                                    End If
                                End If
                            Case LanguageElementType.Const, LanguageElementType.EnumElement, LanguageElementType.InitializedVariable, LanguageElementType.Variable
                                CurrentTextLine = document.GetCodeOnLine(remLine)
                                If CurrentTextLine = String.Empty Then
                                    If BlankLineCounter = 1 Then
                                        Exit Sub
                                    End If
                                    BlankLineCounter += 1
                                    ElementTypeFound = False
                                ElseIf CurrentTextLine.Contains(My.Resources.SummaryXMLBeginTagText) Then
                                    remLine += 1
                                    CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 0, 0, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                    ElementTypeFound = False
                                    Continue Do
                                Else
                                    sectionStartLine = ActiveSection.StartLine
                                    sectionEndLine = ActiveSection.EndLine
                                    If Not remLine = sectionStartLine Then
                                        remLine = sectionStartLine
                                        ElementTypeFound = True
                                        Exit Do
                                    Else
                                        sectionStartLine = ActiveSection.StartLine
                                        sectionEndLine = ActiveSection.EndLine
                                        CurrentTextLine = document.GetCodeOnLine(remLine)
                                        ElementTypeFound = True
                                        Exit Do

                                    End If
                                End If
                            Case LanguageElementType.Property
                                CurrentTextLine = document.GetCodeOnLine(remLine)
                                If CurrentTextLine = String.Empty Then
                                    If BlankLineCounter = 1 Then
                                        Exit Sub
                                    End If
                                    BlankLineCounter += 1
                                    ElementTypeFound = False
                                ElseIf CurrentTextLine.Contains(My.Resources.SummaryXMLBeginTagText) Then
                                    remLine += 1
                                    CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 0, 0, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                    ElementTypeFound = False
                                    Continue Do
                                Else
                                    sectionStartLine = ActiveSection.StartLine
                                    sectionEndLine = ActiveSection.EndLine
                                    If Not remLine = sectionStartLine Then
                                        remLine = sectionStartLine
                                    End If
                                    'Check for Attribute Element.
                                    IsAttributeText = HasAttribute(document, remLine, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                    ElementTypeFound = True
                                    Exit Do
                                End If
                            Case LanguageElementType.Method, LanguageElementType.Delegate
                                CurrentTextLine = document.GetCodeOnLine(remLine)
                                If CurrentTextLine = String.Empty Then
                                    If BlankLineCounter = 1 Then
                                        Exit Sub
                                    End If
                                    BlankLineCounter += 1
                                    ElementTypeFound = False
                                ElseIf CurrentTextLine.Contains(My.Resources.SummaryXMLBeginTagText) Then
                                    remLine += 1
                                    CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 0, 0, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                    ElementTypeFound = False
                                    Continue Do
                                Else
                                    sectionStartLine = ActiveSection.StartLine
                                    sectionEndLine = ActiveSection.EndLine
                                    If Not remLine = sectionStartLine Then
                                        remLine = sectionStartLine
                                        CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 0, 0, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                    End If
                                    'Check for Attribute Element.
                                    IsAttributeText = HasAttribute(document, remLine, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                    ElementTypeFound = True
                                    Exit Do

                                End If
                            Case LanguageElementType.Enum
                                CurrentTextLine = document.GetCodeOnLine(remLine)
                                If CurrentTextLine = String.Empty Then
                                    If BlankLineCounter = 1 Then
                                        Exit Sub
                                    End If
                                    BlankLineCounter += 1
                                    ElementTypeFound = False
                                ElseIf CurrentTextLine.Contains(My.Resources.SummaryXMLBeginTagText) Then
                                    remLine += 1
                                    CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 0, 0, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                    ElementTypeFound = False
                                    Continue Do
                                Else
                                    sectionStartLine = ActiveSection.StartLine
                                    sectionEndLine = ActiveSection.EndLine
                                    If Not remLine = sectionStartLine Then
                                        remLine = sectionStartLine
                                        CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 0, 0, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                    End If
                                    If CurrentElementType = LanguageElementType.Enum Then
                                        'Check for Attribute Element.
                                        IsAttributeText = HasAttribute(document, remLine, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                        ElementTypeFound = True
                                        Exit Do
                                    ElseIf CurrentElementType = LanguageElementType.EnumElement Then
                                        ElementTypeFound = False
                                        Continue Do
                                    End If
                                End If
                            Case LanguageElementType.Struct
                                CurrentTextLine = document.GetCodeOnLine(remLine)
                                If CurrentTextLine = String.Empty Then
                                    If BlankLineCounter = 1 Then
                                        Exit Sub
                                    End If
                                    BlankLineCounter += 1
                                    ElementTypeFound = False
                                ElseIf CurrentTextLine.Contains(My.Resources.SummaryXMLBeginTagText) Then
                                    remLine += 1
                                    CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 0, 0, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                    ElementTypeFound = False
                                    Continue Do
                                Else
                                    sectionStartLine = ActiveSection.StartLine
                                    sectionEndLine = ActiveSection.EndLine
                                    If Not remLine = sectionStartLine Then
                                        remLine = sectionStartLine
                                        CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 0, 0, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                    End If
                                    If CurrentElementType = LanguageElementType.Struct Then
                                        'Check for Attribute Element.
                                        IsAttributeText = HasAttribute(document, remLine, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                        ElementTypeFound = True
                                        Exit Do

                                    ElseIf CurrentElementType = LanguageElementType.InitializedVariable Then
                                        ElementTypeFound = False
                                        Continue Do
                                    ElseIf CurrentElementType = LanguageElementType.Variable Then
                                        ElementTypeFound = False
                                        Continue Do
                                    End If
                                End If
                            Case LanguageElementType.Interface
                                CurrentTextLine = document.GetCodeOnLine(remLine)
                                If CurrentTextLine = String.Empty Then
                                    If BlankLineCounter = 1 Then
                                        Exit Sub
                                    End If
                                    BlankLineCounter += 1
                                    ElementTypeFound = False
                                ElseIf CurrentTextLine.Contains(My.Resources.SummaryXMLBeginTagText) Then
                                    remLine += 1
                                    CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 0, 0, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                    ElementTypeFound = False
                                    Continue Do
                                Else
                                    sectionStartLine = ActiveSection.StartLine
                                    sectionEndLine = ActiveSection.EndLine
                                    If Not remLine = sectionStartLine Then
                                        remLine = sectionStartLine
                                        CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 0, 0, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                    End If
                                    If CurrentElementType = LanguageElementType.Interface Then
                                        'Check for Attribute Element.
                                        IsAttributeText = HasAttribute(document, remLine, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                        ElementTypeFound = True
                                        Exit Do
                                    ElseIf CurrentElementType = LanguageElementType.Method Then
                                        ElementTypeFound = False
                                        Continue Do
                                    End If
                                End If
                            Case LanguageElementType.XmlDocComment, LanguageElementType.XmlDocElement, LanguageElementType.XmlDocText
                                IsXMLCommentExist = True
                                ElementTypeFound = False
                            Case LanguageElementType.Namespace
                                IsNamespace = True
                                CurrentTextLine = document.GetCodeOnLine(remLine)
                                If CurrentTextLine = String.Empty Then
                                    If BlankLineCounter = 1 Then
                                        If Not HasCommentLine = True Then
                                            Exit Sub
                                        End If
                                    End If
                                    BlankLineCounter += 1
                                    ElementTypeFound = False
                                ElseIf CurrentTextLine.Contains(My.Resources.SummaryXMLBeginTagText) Then
                                    remLine += 1
                                    CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 0, 0, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                    ElementTypeFound = False
                                    Continue Do
                                Else

                                    If HasCommentLine = True Then
                                        ElementTypeFound = False
                                    Else
                                        MessageBox.Show(My.Resources.NamespaceXMLCommentNotSupported, My.Resources.NamespaceXMLCommentsNotSupportedMessageTitle, MessageBoxButtons.OK, MessageBoxIcon.Error)
                                        Exit Sub
                                    End If
                                End If
                            Case LanguageElementType.Comment
                                If ActiveSection.InsideMethod = True Then
                                    ElementTypeFound = False
                                Else
                                    HasCommentLine = True
                                    InLineCommentCounter += 1
                                    If CommentLineText = String.Empty Then
                                        CommentLineText = CurrentTextLine
                                    Else
                                        CommentLineText += CurrentTextLine

                                    End If
                                    ActiveSection = CodeRush.Source.Active
                                    Try
                                        StrCurrentElementType = ActiveSection.ElementType.ToString
                                        CurrentElementType = ActiveSection.ElementType
                                        ParentElementType = ActiveSection.Parent.ElementType
                                    Catch nx As NullReferenceException
                                        DocumentingFormCalled = False

                                    Catch ex As Exception
                                        DocumentingFormCalled = False
                                        Exit Sub
                                    End Try
                                    Select Case ParentElementType
                                        Case LanguageElementType.Class, LanguageElementType.Module, LanguageElementType.Struct, LanguageElementType.Enum, LanguageElementType.Interface, LanguageElementType.Namespace, LanguageElementType.SourceFile
                                            If HasCommentLine = True Then
                                                Select Case InLineCommentCounter
                                                    Case 2
                                                        MessageBox.Show(My.Resources.MultiInlineCommetNotSupported, My.Resources.MultiInLineCommentNotSupportedCaption, MessageBoxButtons.OK)
                                                        DocumentingFormCalled = False
                                                        Exit Sub
                                                    Case Else
                                                        If Not CheckForMultiLineComments(document, remLine) Then
                                                            CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 0, 0, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                                            document.DeleteText(remLine, 1, remLine + 1, 1)
                                                            document.SetText(remLine, 1, remLine - 1, 1, " " & vbCrLf & vbCrLf)
                                                        Else
                                                            MessageBox.Show(My.Resources.MultiInlineCommetNotSupported, My.Resources.MultiInLineCommentNotSupportedCaption, MessageBoxButtons.OK)
                                                            DocumentingFormCalled = False
                                                            Exit Sub
                                                        End If
                                                End Select
                                            End If
                                            CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 1, 0, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                                            ElementTypeFound = False
                                        Case Else
                                            ElementTypeFound = False
                                            Continue Do

                                    End Select

                                End If
                            Case LanguageElementType.Attribute, LanguageElementType.ElementReferenceExpression
                                IsAttributeText = True
                                ElementTypeFound = False
                            Case Else
                                ElementTypeFound = False
                        End Select
                        remLine += 1
                        CurrentTextLine = MoveSelectionToLineAndOffset(document, remLine, 0, 0, CodeRush.Source.Active, SetCurrentOffset(IsNamespace, CurrentTabSize))
                        ActiveSection = CodeRush.Source.Active
                        Try
                            GetActiveSection(ActiveSection)
                        Catch nx As NullReferenceException
                            DocumentingFormCalled = False

                        Catch ex As Exception
                            DocumentingFormCalled = False
                            Exit Sub
                        End Try

                    Loop

                    Try
                        GetActiveSection(ActiveSection)
                    Catch ex As Exception

                    End Try

                    Dim docLines As String() = Nothing
                    docLines = StringHelper.SplitMultiLineText(document.Text)
                    sectionStartLine = ActiveSection.StartLine
                    sectionEndLine = ActiveSection.EndLine
                    Dim remDetailNodes As NodeList = ActiveSection.DetailNodes
                    Dim remIsConstructor As Boolean = CodeRushHelper.IsConstructor(ActiveSection)
                    Dim MethodType As NodeList = ActiveSection.DetailNodes
                    Dim checkLineNum As Integer = 0
                    checkLineNum = sectionStartLine - 1
                    Dim oldRemLine As Integer = remLine
                    Dim linesAddedBeforeThisMethod As Integer = remLine - oldRemLine

                    Dim CurrentSourcePoint As New SourcePoint(remLine, CurrentOffset)

                    If document.GetRegionAt(CurrentSourcePoint) Is Nothing Then
                        'Debug.WriteLine(document.GetRegionAt(CurrentSourcePoint).ToString)
                        IsRegion = False
                    Else
                        'Debug.WriteLine(document.GetRegionAt(CurrentSourcePoint).ToString)
                        IsRegion = True
                    End If

                    CommentSection(checkLineNum, docLines, remLine, CommentLineText, 0, ActiveSection.PathSegment, GenerateXmlOnlyForPublic = False OrElse ((ActiveSection.ElementType = LanguageElementType.[Class] OrElse ActiveSection.ElementType = LanguageElementType.Struct OrElse ActiveSection.ElementType = LanguageElementType.Method OrElse ActiveSection.ElementType = LanguageElementType.[Property]) AndAlso ActiveSection.[GetType]().IsSubclassOf(GetType(AccessSpecifiedElement)) AndAlso (DirectCast(ActiveSection, AccessSpecifiedElement).Visibility = MemberVisibility.[Public] OrElse DirectCast(ActiveSection, AccessSpecifiedElement).Visibility = MemberVisibility.Internal)), _
                     remIsConstructor, CurrentElementType, remDetailNodes, document, StrParentType, CurrentAttributeText, IsAttributeText)
                    docLines = Nothing
                    If commendWasAdded Then
                        commentingHint.PointToCaret()
                    End If

                    '    DocumentingFormCalled = False

                Case Else
                    Apostrophe = 0
            End Select
        End Sub

        ''' <summary>
        ''' Type Function Check for multi line comments
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="document">Parameter document Text document</param>
        ''' <param name="remLineValue">Parameter remLineValue Integer</param>
        ''' <returns>
        ''' <seealso cref="System.Boolean"/> As System.Boolean <c> True</c> if success, <c>False</c> otherwise.
        ''' </returns>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:27:10 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Function CheckForMultiLineComments(ByVal document As TextDocument, ByVal remLineValue As Integer) As Boolean
            Dim tempText As String = document.GetCodeOnLine(remLineValue + 1)
            If tempText.StartsWith("'") Then
                Return True
            Else
                Return False
            End If
        End Function

        ''' <summary>The Function Get and parse text document
        ''' </summary>
        ''' <returns>Text document
        ''' </returns>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:24:10 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Function GetAndParseTextDocument() As TextDocument
            ' We need an active file node to continue
            If CodeRush.Documents.ActiveTextDocument Is Nothing Then
#If DEBUG Then
                Log.Write("there is no active document to process")
#End If
                Return Nothing
            End If
            ' if (CodeRush.Source.ActiveFileNode)
            ' The text document we are currently working on
            Dim document As TextDocument = DirectCast(CodeRush.Documents.ActiveTextDocument, TextDocument)

            ' If the document or selection is not valid or if
            ' the file is not a .cs file, we can't continue.
            If document.Selection Is Nothing OrElse CodeRush.Source Is Nothing Then
                'document.FileNode == null ||
#If DEBUG Then
                Log.Write("document or selection is not valid " + "(no vb file or file was not analyzed yet from CodeRush), " + "unable to continue!")
#End If
                Return Nothing
            End If
            ' if (document)
            ' Check if this is a supported file format
            Dim fileExtension As String = StringHelper.GetExtension(document.Name)
            ' The supported file types. Only c# is tested and works fine,
            ' other formats might need additional testing!
            ' Note: When CodeRush can't parse a file type, the commenter
            ' won't work.
            Dim supportedFiletypes As String() = New String() {"vb"}
            If StringHelper.Compare(fileExtension, supportedFiletypes) = False Then
                Return Nothing
                ' File format not supported, can't continue!
            End If

            ' Make sure stuff is parsed!
            document.ParseIfTextChanged()

            Return document
        End Function


        ''' <summary>The Sub Add missing xml comments recursively
        ''' </summary>
        ''' <param name="missingXmlComments">Parameter missingXmlComments As <seealso cref= "System.Array"/></param>
        ''' <param name="activeSection">Parameter activeSection Language element</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:24:52 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub AddMissingXmlCommentsRecursively(ByVal missingXmlComments As ArrayList, ByVal activeSection As LanguageElement)
            For Each element As LanguageElement In activeSection.Nodes
                If (element.ElementType = LanguageElementType.[Class] OrElse element.ElementType = LanguageElementType.Struct OrElse element.ElementType = LanguageElementType.Method OrElse element.ElementType = LanguageElementType.[Property] OrElse element.ElementType = LanguageElementType.EnumElement OrElse ((activeSection.ElementType = LanguageElementType.[Class] OrElse activeSection.ElementType = LanguageElementType.Struct) AndAlso (element.ElementType = LanguageElementType.Variable OrElse element.ElementType = LanguageElementType.InitializedVariable)) OrElse activeSection.ElementType = LanguageElementType.Struct) AndAlso (element.PreviousSibling Is Nothing OrElse (element.PreviousSibling.ElementType <> LanguageElementType.XmlDocComment AndAlso (element.PreviousSibling.ElementType <> LanguageElementType.AttributeSection OrElse element.PreviousSibling.PreviousCodeSibling IsNot Nothing AndAlso element.PreviousSibling.PreviousCodeSibling.ElementType <> LanguageElementType.XmlDocComment))) Then
                    ' Update 2005-10-04: Added enums too :)
                    ' Also check variables, but only if there at class or struct level!
                    ' Update 2005-10-04: Added support for structs
                    ' Don't check stuff that already has a comment
                    ' There may be attributes between xml comment and method!
                    'DevExpress.CodeRush.Diagnostics.Menus.Log.Write("xml missing section: "+
                    '	"element.Name="+element.Name+
                    '	", element.PathSegment="+element.PathSegment);

                    ' Don't add xml comment for variables if inside a method
                    ' or property.
                    If element.Parent Is Nothing OrElse (element.Parent.ElementType <> LanguageElementType.Method AndAlso element.Parent.ElementType <> LanguageElementType.[Property]) Then
                        missingXmlComments.Add(New MissingXmlComment(element.PathSegment, element.DetailNodes, element.StartLine - 1, CodeRushHelper.IsConstructor(element), element.ElementType))
                        ' if
                    End If
                End If
                If element.ElementType = LanguageElementType.EnumElement Then
                    activeSection = activeSection.Parent
                End If
                ' if
                ' If this is a class, struct or namespace language element,
                ' search the childs!
                If element.ElementType = LanguageElementType.[Class] OrElse element.ElementType = LanguageElementType.Struct OrElse element.ElementType = LanguageElementType.[Namespace] OrElse element.ElementType = LanguageElementType.EnumElement Then
                    If element.ElementType = LanguageElementType.EnumElement Then
                        AddMissingXmlCommentsRecursively(missingXmlComments, activeSection)
                    Else
                        AddMissingXmlCommentsRecursively(missingXmlComments, element)
                    End If
                End If
            Next
            ' foreach
        End Sub

        ''' <summary>The Sub Load options
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:09:43 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub LoadOptions()
            Try
                Enabled = CommenterOptionsPage.Storage.ReadBoolean(My.Resources.CommenterOptionsText, My.Resources.EnabledText, True)
                GenerateXmlTags = CommenterOptionsPage.Storage.ReadBoolean(My.Resources.CommenterOptionsText, My.Resources.EnabledText, True)
                DeveloperName = CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.DeveloperNameText, String.Empty)
                DeveloperCompany = CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.DeveloperCompanyText, My.Settings.DefaultDeveloperCompanyName)
                DeveloperPhone = CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.DeveloperPhoneText, String.Empty)
                DeveloperEmail = CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.txtDeveloperEmailText, String.Empty)
                VBCodeCommenter.CommenterOptionsPage.CommentHotKey = CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.HotKeyText, My.Resources.DefaultHotKeyText)
                VBCodeCommenter.CommenterOptionsPage.CommentHotKeyWithCtrlKey = CommenterOptionsPage.Storage.ReadBoolean(My.Resources.CommenterOptionsText, My.Resources.CtrlKeyText, True)
                VBCodeCommenter.CommenterOptionsPage.CommentHotKeyWithAltKey = CommenterOptionsPage.Storage.ReadBoolean(My.Resources.CommenterOptionsText, My.Resources.AltKeyText, False)
                VBCodeCommenter.CommenterOptionsPage.CommentHotKeyWithShiftKey = CommenterOptionsPage.Storage.ReadBoolean(My.Resources.CommenterOptionsText, My.Resources.ShiftKeyText, False)
                XMLSummaryOptionsEditorText = CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLSummaryOptionsEditorNameText, String.Empty)
                XMLRemarksOptionsEditorText = CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLRemarksOptionsEditorNameText, String.Empty)
                XMLHistoryOptionsEditorText = CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLHistoryOptionsEditorNameText, String.Empty)
                XMLReturnsOptionsEditorText = CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLReturnsOptionsEditorNameText, String.Empty)
                XMLValueOptionsEditorText = CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLValueOptionsEditorNameText, String.Empty)
                XMLParametersOptionsEditorText = CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLParametersOptionsEditorNameText, String.Empty)
                XMLExceptionsOptionsEditorText = CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLExceptionsOptionsEditorNameText, String.Empty)
                XMLExamplesOptionsEditorText = CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLExamplesOptionsEditorNameText, String.Empty)
                XMLSeeAlsoOptionsEditorText = CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLSeeAlsoOptionsEditorNameText, String.Empty)
                XMLPermissionOptionsEditorText = CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLPermissionOptionsEditorNameText, String.Empty)


            Catch

            End Try

        End Sub

        ''' <summary>The Function Search function and select it
        ''' </summary>
        ''' <param name="methodName">Parameter methodName As <seealso cref= "System.String"/></param>
        ''' <param name="fileNode">Parameter fileNode Language element</param>
        ''' <returns><seealso cref="System.Boolean"/> As System.Boolean <c> True</c> if success, <c>False</c> otherwise.
        ''' </returns>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:09:51 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Function SearchFunctionAndSelectIt(ByVal methodName As String, ByVal fileNode As LanguageElement) As Boolean
            'DevExpress.CodeRush.Diagnostics.Menus.Log.Write("SearchFunctionAndSelectIt: methodName="+methodName);
            ' maybe we got different versions with different arguments.
            Dim foundElement As LanguageElement = CodeRushHelper.FindLanguageElement(fileNode, methodName)
            If foundElement IsNot Nothing Then
                CodeRush.Selection.SelectRange(foundElement.StartLine, foundElement.StartOffset, foundElement.StartLine, foundElement.StartOffset)
                Return True
            End If
            ' if (foundElement)
            Return False
        End Function

        ''' <summary>The Sub Commenter plug in   options changed
        ''' </summary>
        ''' <param name="ea">Parameter ea Dev express. code rush. core. options changed event arguments</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:10:18 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub CommenterPlugIn_OptionsChanged(ByVal ea As DevExpress.CodeRush.Core.OptionsChangedEventArgs)
            LoadOptions()
        End Sub

        ''' <summary>The Sub Commenter plug in   editor idle
        ''' </summary>
        ''' <param name="ea">Parameter ea Editor idle event arguments</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:10:40 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub CommenterPlugIn_EditorIdle(ByVal ea As EditorIdleEventArgs)
            'RestoreCollapsedRegionsByNames()
        End Sub

        ''' <summary>
        ''' Type Variable [AppPath] As <seealso cref= "System.String"/>
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <returns>
        ''' <seealso cref="System.String"/> As System.String
        ''' </returns>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:26:48 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Shared Function AppPath() As String
            ' Return the path to this application.
            Return System.IO.Path.GetDirectoryName(Reflection.Assembly. _
                GetExecutingAssembly().GetName().CodeBase.ToString())
        End Function

        ''' <summary>
        ''' Type Variable [AppName] As <seealso cref= "System.String"/>
        ''' <para>Class Name: CommenterPlugIn</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <returns>
        ''' <seealso cref="System.String"/> As System.String
        ''' </returns>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:26:55 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Shared Function AppName() As String
            Return Reflection.Assembly.GetExecutingAssembly().GetName().Name
        End Function

#End Region

        ''' <summary>The Class Xml parameter
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:11:09 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Class XmlParameter

            ''' <summary>Variable [name] As <seealso cref= "System.String"/>
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:11:19 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public name As String

            ''' <summary>Variable [text] As <seealso cref= "System.String"/>
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:11:27 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public text As String

            ''' <summary>Variable [endLine] Integer
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:11:33 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public endLine As Integer

            ''' <summary>Variable [foundParameter] As <seealso cref= "System.Boolean"/>
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:11:37 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public foundParameter As Boolean

            ''' <summary>The Sub New
            ''' </summary>
            ''' <param name="setName">Parameter setName As <seealso cref= "System.String"/></param>
            ''' <param name="setText">Parameter setText As <seealso cref= "System.String"/></param>
            ''' <param name="setEndLine">Parameter setEndLine Integer</param>
            ''' <param name="setFoundParameter">Parameter setFoundParameter As <seealso cref= "System.Boolean"/></param>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' <item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:12:06 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public Sub New(ByVal setName As String, ByVal setText As String, ByVal setEndLine As Integer, ByVal setFoundParameter As Boolean)
                name = setName
                text = setText
                'unused: startLine = setStartLine;
                endLine = setEndLine
                foundParameter = setFoundParameter
            End Sub
        End Class

        ''' <summary>The Class XML History in
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:15:58 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Class XMLHistory

            ''' <summary>
            ''' Type Variable [DevName] As <seealso cref= "System.String"/>
            ''' <para>Class Name: XMLHistory</para>
            ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
            ''' <para>Project Name: VBCode_Commenter</para>
            ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
            ''' <para>Namespace Name: VBCodeCommenter</para>
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<devName>Developer\Date\Time</devName>
            ''' 		<devCompany>Developer Company</devCompany>
            ''' 		<devPhone>Developer Phone</devPhone>
            ''' 		<devEmail>Developer Email</devEmail>
            ''' 		<devMachine>Developer On</devMachine>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:32:18 AM</para></devName>
            ''' 		<devCompany>EDS</devCompany>
            ''' 		<devPhone>(919) 424-9259</devPhone>
            ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
            ''' 		<devMachine>W2PZZ50H01</devMachine>
            ''' 		<description>Created XML Comment.</description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public DevName As String

            ''' <summary>
            ''' Type Variable [DevCompany] As <seealso cref= "System.String"/>
            ''' <para>Class Name: XMLHistory</para>
            ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
            ''' <para>Project Name: VBCode_Commenter</para>
            ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
            ''' <para>Namespace Name: VBCodeCommenter</para>
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<devName>Developer\Date\Time</devName>
            ''' 		<devCompany>Developer Company</devCompany>
            ''' 		<devPhone>Developer Phone</devPhone>
            ''' 		<devEmail>Developer Email</devEmail>
            ''' 		<devMachine>Developer On</devMachine>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:32:24 AM</para></devName>
            ''' 		<devCompany>EDS</devCompany>
            ''' 		<devPhone>(919) 424-9259</devPhone>
            ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
            ''' 		<devMachine>W2PZZ50H01</devMachine>
            ''' 		<description>Created XML Comment.</description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public DevCompany As String

            ''' <summary>
            ''' Type Variable [DevPhone] As <seealso cref= "System.String"/>
            ''' <para>Class Name: XMLHistory</para>
            ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
            ''' <para>Project Name: VBCode_Commenter</para>
            ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
            ''' <para>Namespace Name: VBCodeCommenter</para>
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<devName>Developer\Date\Time</devName>
            ''' 		<devCompany>Developer Company</devCompany>
            ''' 		<devPhone>Developer Phone</devPhone>
            ''' 		<devEmail>Developer Email</devEmail>
            ''' 		<devMachine>Developer On</devMachine>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:32:28 AM</para></devName>
            ''' 		<devCompany>EDS</devCompany>
            ''' 		<devPhone>(919) 424-9259</devPhone>
            ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
            ''' 		<devMachine>W2PZZ50H01</devMachine>
            ''' 		<description>Created XML Comment.</description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public DevPhone As String

            ''' <summary>
            ''' Type Variable [DevEmail] As <seealso cref= "System.String"/>
            ''' <para>Class Name: XMLHistory</para>
            ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
            ''' <para>Project Name: VBCode_Commenter</para>
            ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
            ''' <para>Namespace Name: VBCodeCommenter</para>
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<devName>Developer\Date\Time</devName>
            ''' 		<devCompany>Developer Company</devCompany>
            ''' 		<devPhone>Developer Phone</devPhone>
            ''' 		<devEmail>Developer Email</devEmail>
            ''' 		<devMachine>Developer On</devMachine>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:32:32 AM</para></devName>
            ''' 		<devCompany>EDS</devCompany>
            ''' 		<devPhone>(919) 424-9259</devPhone>
            ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
            ''' 		<devMachine>W2PZZ50H01</devMachine>
            ''' 		<description>Created XML Comment.</description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public DevEmail As String

            ''' <summary>
            ''' Type Variable [DevMachine] As <seealso cref= "System.String"/>
            ''' <para>Class Name: XMLHistory</para>
            ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\CommenterPlugIn.vb</para>
            ''' <para>Project Name: VBCode_Commenter</para>
            ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
            ''' <para>Namespace Name: VBCodeCommenter</para>
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<devName>Developer\Date\Time</devName>
            ''' 		<devCompany>Developer Company</devCompany>
            ''' 		<devPhone>Developer Phone</devPhone>
            ''' 		<devEmail>Developer Email</devEmail>
            ''' 		<devMachine>Developer On</devMachine>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:32:37 AM</para></devName>
            ''' 		<devCompany>EDS</devCompany>
            ''' 		<devPhone>(919) 424-9259</devPhone>
            ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
            ''' 		<devMachine>W2PZZ50H01</devMachine>
            ''' 		<description>Created XML Comment.</description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public DevMachine As String

            ''' <summary>Variable [Description] As <seealso cref= "System.String"/>
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:14:10 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public Description As String

            Public Sub New(ByVal setDevName As String, ByVal setDevCompany As String, ByVal setDevPhone As String, ByVal setDevEmail As String, ByVal setDevMachine As String, ByVal setDescription As String)

                DevName = setDevName
                DevCompany = setDevCompany
                DevPhone = setDevPhone
                DevEmail = setDevEmail
                DevMachine = setDevMachine
                Description = setDescription
            End Sub
        End Class

        ''' <summary>The Class XML SeeAlso in
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:15:58 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Class XMLSeeAlso

            ''' <summary>Variable [CrefLink] As <seealso cref= "System.String"/>
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:13:46 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public CrefLink As String

            ''' <summary>Variable [CrefDescription] As <seealso cref= "System.String"/>
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:14:17 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public CrefDescription As String

            ''' <summary>The Sub New
            ''' </summary>
            ''' <param name="setCrefLink">Parameter setCrefLink As <seealso cref= "System.String"/></param>
            ''' <param name="setDescription">Parameter setDescription As <seealso cref= "System.String"/></param>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' <item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:14:25 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public Sub New(ByVal setCrefLink As String, ByVal setDescription As String)
                CrefLink = setCrefLink
                CrefDescription = setDescription
            End Sub
        End Class

        ''' <summary>The Class XML Permissions in
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:15:58 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Class XMLPermissions

            ''' <summary>Variable [CrefLink] As <seealso cref= "System.String"/>
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:14:38 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public CrefLink As String

            ''' <summary>Variable [CrefDescription] As <seealso cref= "System.String"/>
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:14:41 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public CrefDescription As String

            ''' <summary>The Sub New
            ''' </summary>
            ''' <param name="setCrefLink">Parameter setCrefLink As <seealso cref= "System.String"/></param>
            ''' <param name="setDescription">Parameter setDescription As <seealso cref= "System.String"/></param>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' <item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:14:48 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public Sub New(ByVal setCrefLink As String, ByVal setDescription As String)
                CrefLink = setCrefLink
                CrefDescription = setDescription
            End Sub
        End Class

        ''' <summary>The Class XML Exception in
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 8:15:58 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Class XMLException

            ''' <summary>Variable [CrefLink] As <seealso cref= "System.String"/>
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:14:54 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public CrefLink As String

            ''' <summary>Variable [CrefDescription] As <seealso cref= "System.String"/>
            ''' </summary>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' 	<item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:14:59 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public CrefDescription As String

            ''' <summary>The Sub New
            ''' </summary>
            ''' <param name="setCrefLink">Parameter setCrefLink As <seealso cref= "System.String"/></param>
            ''' <param name="setDescription">Parameter setDescription As <seealso cref= "System.String"/></param>
            ''' <remarks>
            ''' 	<para><b>History:</b></para>
            ''' <list type="table">
            ''' 	<listheader>
            ''' 		<term>Term</term>
            ''' 		<description>Description</description>
            ''' 	</listheader>
            ''' <item>
            ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 9:15:05 AM</para></term>
            ''' 		<description>Created XML Comment. </description>
            ''' 	</item>
            ''' </list>
            ''' </remarks>
            ''' <example>
            ''' </example>
            Public Sub New(ByVal setCrefLink As String, ByVal setDescription As String)
                CrefLink = setCrefLink
                CrefDescription = setDescription
            End Sub
        End Class

    End Class
End Namespace
